MessageBox creator

[AnchoredFTW]

Could you possibly use this:

Code:

Private Sub BoxStyleSelect()
        If Form1.RadioButton1.Checked = True Then
            Form1.style.Text = ""
        End If
        If Form1.RadioButton2.Checked = True Then
            Form1.style.Text = "MsgBoxStyle.Information"
        End If
        If Form1.RadioButton3.Checked = True Then
            Form1.style.Text = "MsgBoxStyle.Critical"
        End If
    End Sub

And add a timer at a small interval like say 20, with this:

Code:

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)
        BoxStyleSelect()
    End Sub

And then finally on the button add:

Code:

MsgBox(TextBox2.Text, style.text, TextBox1.Text)