' MessageBox_DialogResult_WinAp.vb.txt
    Private Sub btnMessageBox_Click(ByVal sender As System.Object, _
                                    ByVal e As System.EventArgs) _
                                    Handles btnMessageBox.Click
        Dim strText As String = "This is the text I will Show"
        Dim strCaption As String = "This is my Caption"
        Dim intAnswer As Integer
        Dim drAnswer As DialogResult
        drAnswer = MessageBox.Show(strText, _
                                    strCaption, _
                                    MessageBoxButtons.AbortRetryIgnore)
        Dim strAnswer As String
        Select Case drAnswer
            Case DialogResult.Abort
                Me.BackColor = Color.Gray
                strAnswer = "Abort"
            Case DialogResult.Retry
                Me.BackColor = Color.Green
                strAnswer = "Retry"
            Case DialogResult.Ignore
                Me.BackColor = Color.Red
                strAnswer = "Ignore "
        End Select
        Me.Text = strAnswer
    End Sub