Private Sub lblSN_DoubleClick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles lblSN.DoubleClick
 
        If Not Me.tmrStellungnahme.Enabled = True Then
 
            If Stellungnahme = False Then
                Me.tmrStellungnahme.Enabled = True
            End If
 
        Else
 
            RaiseEvent StellungnahmeAbbruch()
            Me.lblSN.BackColor = Color.Red
            MsgBox("Abbruch SN")
 
        End If
 
 
    End Sub
 
    Private Sub tmrStellungnahme_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles tmrStellungnahme.Tick
        Dim counter As Integer = 0
        Dim switch As Boolean = False
 
        While counter < 10
            If switch = False Then
                Me.lblSN.BackColor = Color.YellowGreen
                counter = counter + 1
                switch = True
                Threading.Thread.Sleep(500)
                Me.lblSN.Refresh()
                Application.DoEvents()
            Else
                Me.lblSN.BackColor = Color.Red
                counter = counter + 1
                switch = False
                Threading.Thread.Sleep(500)
                Me.lblSN.Refresh()
                Application.DoEvents()
            End If
        End While
 
        Me.tmrStellungnahme.Enabled = False
        MsgBox("Durchführen SN")
 
    End Sub