---------------------------------------...
Public Sub PerformCalculations()
' Code is entered here that performs a calculation.
' Display a message box informing the user that the calculations
' are complete.
MessageBox.Show("The calculations are complete", "My Application", _
MessageBoxButtons.OKCancel, MessageBoxIcon.Asterisk)
End Sub
To display a message box to request information
---------------------------------------...
Public Sub ExitApplication()
' Display a message box asking users if they
' want to exit the application.
If MessageBox.Show ("Do you want to exit?", "My Application", _
MessageBoxButtons.YesNo, MessageBoxIcon.Question) _
= DialogResult.Yes Then
Application.Exit
End If
End Sub
I think you can get a website for $3.75 a month Thar's awesome