Public Class XForm
 
    Dim WithEvents btn1 As New Button With {.Parent = Me, .Text = "Sub1"}
    Dim WithEvents btn2 As New Button With {.Parent = Me, .Text = "Sub2", .Top _
      = 40}
 
 
    Private Sub btn1_Click(sender As Object, e As System.EventArgs) Handles _
      btn1.Click
 
        XSubForm.Text = "Gerufen von Button 1"
        XSubForm.Show()
 
    End Sub
 
 
    Private Sub btn2_Click(sender As Object, e As System.EventArgs) Handles _
      btn2.Click
 
        xSubform.Close()
 
        XSubForm.Text = "Gerufen von Button 2"
        XSubForm.Show()
 
    End Sub
 
End Class