Private Function MyFunc(ByVal result As DialogResult) As DialogResult
Open in new window
Private Function MyFunc() As DialogResult
Dim result As DialogResult
If 1 = 1 Then ''<< your condition here
result = MessageBox.Show("Help", "Caption", MessageBoxButtons.OKCancel))
result = DialogResult.Cancel
Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.