Public Sub ShowMyDialogBox()
    Dim testDialog As New Form2()
    
    ' Show testDialog as a modal dialog and determine if DialogResult = OK.
    If testDialog.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK Then
        ' Read the contents of testDialog's TextBox.
        txtResult.Text = testDialog.TextBox1.Text
    Else
        txtResult.Text = "Cancelled"
    End If
    testDialog.Dispose()
End Sub

Option Strict On

Imports System.Drawing
Imports System.Windows.Forms

Public Class Form1 : Inherits Form
   Private WithEvents cmdClickCtr As Button = New Button()

   Public Sub New()
      Me.cmdClickCtr.Location = New Point(100, 75)
      Me.cmdClickCtr.Size = New Size(100, 50)
      Me.cmdClickCtr.Text = "Click Counter"
      
      Me.Controls.Add(cmdClickCtr)
      Me.Text = "Click Counter"
   End Sub
   
   Private Sub cmdClickCtr_Click(ByVal sender As System.Object, _
               ByVal e As System.EventArgs) _
               Handles cmdClickCtr.Click
      Static ctr As Integer = 1
      MsgBox("Button was clicked " & ctr & " times.")
      ctr += 1
   End Sub
   
   Public Shared Sub Main()
      Dim frm As New Form1()
      frm.ShowDialog()
   End Sub
End Class