' 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