OnClick event til dynamisk oprettet Button

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim NyKnap As New Button
        NyKnap.Name = "NyKnap"
        NyKnap.Location = New Point(200, 100)
        NyKnap.Parent = Me
        NyKnap.Text = "Vis OK"
        AddHandler NyKnap.Click, AddressOf KnapKlik
        Me.Refresh()

    End Sub

    Sub KnapKlik(ByVal sender As System.Object, ByVal e As System.EventArgs)

        MsgBox("OK")

    End Sub