If BefehlsTeile(0) = "StarteBildModus" Then
                TakeScreenshot()
            End If
 
            If BefehlsTeile(0) = "BeendeBildModus" Then
                StopScreenshot()
            End If

    Private Sub TakeScreenshot()
        Timer1.Start()
        MsgBox("1")
    End Sub
 
    Private Sub StopScreenshot()
        Timer1.Stop()
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles         MsgBox("timer")
    End Sub