Public Sub Close(ByVal sender As Object, ByVal e As EventArgs)
        'blubb
        MsgBox("close")
    End Sub
 
 
    Public Sub BtClose_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles BtClose.Click
        Me.Controls.Clear()
        MsgBox("jo")
        AddHandler BtClose.Click, AddressOf Me.Close
    End Sub