Public Class UserControl1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        ShowFormDialog()
    End Sub
 
    Public Sub ShowFormDialog()
        Dim frm As New DialogForm("Test Title")
        Dim res As DialogResult = frm.ShowDialog
        If res = DialogResult.OK Then
            Dim text As String = frm.MyResult
            MessageBox.Show(text)
        End If
    End Sub
 
End Class
 
Public Class DialogForm
 
    Public ReadOnly Property MyResult As String
        Get
            Return TextBox1.Text
        End Get
    End Property
 
    Public Sub New(ByVal parameter As String)
        Me.InitializeComponent()
        Me.Text = parameter
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Me.DialogResult = Windows.Forms.DialogResult.OK
        Me.Close()
    End Sub
 
End Class