Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles MyBase.Load
 
        Dim btn As New Button
        With btn
            .Top = 20
            .Left = 20
            .Text = "Drück mich"
        End With
        AddHandler btn.Click, AddressOf btn_Click
        Me.Controls.Add(btn)
    End Sub
    Private Sub btn_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        MsgBox("Hast mich gedrückt")
    End Sub

Wenn alle Stricke rei?en, dann h?ng ich mich auf. ~ Karl Kraus