Dim butStart As New Button()
        butStart.Parent = tpFlug 'tabpage tpFlug
        butStart.Text = "Timer Start"
        butStart.AutoSize = True
        butStart.Location = New Point(100, 100)

    Private Sub butStart_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) _
    Handles butStart.Click
 
        MsgBox("Test", MsgBoxStyle.Critical)
    End Sub