VB.net中的MessageBox持久性

\' This is your Dialog you created by going Project->Add Windows Form->Dialog
Public Class MessageBoxDialog

  Public Overloads Sub ShowDialog(ByVal message As String)

    Me.txtMessage.Text = message

    ShowDialog()

  End Sub
End Class

\' This is the form you want to call the message box on
Private Sub btnShowMsgBox_Click(sender As System.Object, e As System.EventArgs) _
                                Handles btnShowMsgBox.Click
    Dim messageBox As New MessageBoxDialog
    messageBox.ShowDialog(\"This is another way to show a MsgBox but allows greater extensibility.\")
End Sub

MessageBox.Show(mf, \"text\")