Public Class frmtest
    Private i As Integer
 
    Private Label1 As New Label With {.Parent = Me, .Width = 200}
    Private WithEvents button1 As New Button With {.Parent = Me, .Top = 50}
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As  _
          System.EventArgs) Handles MyBase.Load
        Label1.Text = "Noch nicht einmal geklickt."
    End Sub
 
    Public Sub btnClick_Click(ByVal sender As System.Object, ByVal e As  _
      System.EventArgs) Handles button1.Click
        i += 1
        Label1.Text = "Der Button wurde " & CStr(i) & " mal geklickt."
    End Sub
 End Class

Public Class xxxx
 
    Public Shared myTest As New frmtest
 
    Public Shared Sub Show()
        myTest.Show()
    End Sub
 
    Public Shared Sub Klick()
        myTest.btnClick_Click(Nothing, EventArgs.Empty)
    End Sub
End Class