Ask a Yes/no question and return a Boolean

' 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