' Ask a Yes/no question' returns True if the user replies "Yes"' Example: MessageBox.Show(AskYesOrNo("Do you like me?", "ME", True))Function AskYesOrNo(ByVal text As String, ByVal title As String, _ ByVal defaultAnswer As Boolean) As Boolean Dim defButton As MessageBoxDefaultButton = MessageBoxDefaultButton.Button2 If defaultAnswer Then defButton = MessageBoxDefaultButton.Button1 End If Dim answer As DialogResult = MessageBox.Show(text, title, _ MessageBoxButtons.YesNo, MessageBoxIcon.Question, defButton) Return (answer = DialogResult.Yes)End Function