Public Class frmTheMessageBox
    Private Sub btnDefaultMessageBox_Click(sender As Object, e As EventArgs) Handles btnDefaultMessageBox.Click
        MessageBox.Show("Message")
    End Sub

    Private Sub btnwithtitle2_Click(sender As Object, e As EventArgs) Handles btnwithtitle2.Click
        MessageBox.Show("Message", "Title Bar")
    End Sub

    Private Sub btnButtonChoices_Click(sender As Object, e As EventArgs) Handles btnButtonChoices.Click
        MessageBox.Show("Message", "Title Bar", MessageBoxButtons.YesNo)
    End Sub

    Private Sub btnWithIcon_Click(sender As Object, e As EventArgs) Handles btnWithIcon.Click
        MessageBox.Show("Message", "Title Bar", MessageBoxButtons.AbortRetryIgnore, MessageBoxIcon.Hand)
    End Sub
End Class