Code:
If Me.RadioButton1.Checked Then
Interaction.MsgBox(Me.TextBox1.Text, MsgBoxStyle.Critical, Me.TextBox2.Text)
End If
If Me.RadioButton2.Checked Then
Interaction.MsgBox(Me.TextBox1.Text, MsgBoxStyle.Information, Me.TextBox2.Text)
End If
If Me.RadioButton3.Checked Then
Interaction.MsgBox(Me.TextBox1.Text, MsgBoxStyle.Exclamation, Me.TextBox2.Text)
End If
If Me.RadioButton4.Checked Then
Interaction.MsgBox(Me.TextBox1.Text, MsgBoxStyle.MsgBoxHelp, Me.TextBox2.Text)
End If
If Me.RadioButton5.Checked Then
Interaction.MsgBox(Me.TextBox1.Text, MsgBoxStyle.MsgBoxRight, Me.TextBox2.Text)
End If
If Me.RadioButton6.Checked Then
Interaction.MsgBox(Me.TextBox1.Text, MsgBoxStyle.AbortRetryIgnore, Me.TextBox2.Text)
End If
If Me.RadioButton7.Checked Then
Interaction.MsgBox(Me.TextBox1.Text, MsgBoxStyle.OkOnly, Me.TextBox2.Text)
End If
If Me.RadioButton8.Checked Then
Interaction.MsgBox(Me.TextBox1.Text, MsgBoxStyle.OkCancel, Me.TextBox2.Text)
End If
If Me.RadioButton9.Checked Then
Interaction.MsgBox(Me.TextBox1.Text, MsgBoxStyle.YesNo, Me.TextBox2.Text)
End If
If Me.RadioButton10.Checked Then
Interaction.MsgBox(Me.TextBox1.Text, MsgBoxStyle.YesNoCancel, Me.TextBox2.Text)
End If
If Me.RadioButton11.Checked Then
Interaction.MsgBox(Me.TextBox1.Text, MsgBoxStyle.Question, Me.TextBox2.Text)
End If
If Me.RadioButton12.Checked Then
Interaction.MsgBox(Me.TextBox1.Text, MsgBoxStyle.OkOnly, Me.TextBox2.Text)
End If
If Me.RadioButton13.Checked Then
Interaction.MsgBox(Me.TextBox1.Text, MsgBoxStyle.RetryCancel, Me.TextBox2.Text)
End If
If Me.RadioButton15.Checked Then
Interaction.MsgBox(Me.TextBox1.Text, MsgBoxStyle.OkOnly, Me.TextBox2.Text)
End If
If Me.RadioButton16.Checked Then
Interaction.MsgBox(Me.TextBox1.Text, MsgBoxStyle.MsgBoxRtlReading, Me.TextBox2.Text)
End If
What does this do exactly?