Private Sub Timer2_Tick(ByVal sender As Object, ByVal e As System.EventArgs) _
  Handles Timer2.Tick
            If boTimer Then
                  Me.Label1.BackColor = Color.Red
                  Call Ablauf()
            End If
      End Sub
      Sub Ablauf()
            If Oil.inHo = 0 Then
                  If Oil.doKurs >= doCLAHoch - doCLBreak Then
                        Oil.inHo = 1
                        Oil.inTi = 0
                  End If
            End If
            If Oil.inTi = 0 Then
                  If Oil.doKurs <= doCLATief + doCLBreak Then
                        Oil.inHo = 0
                        Oil.inTi = 1
                  End If
            End If
            Call Zaehler() 
            If boCLUmsch Then
                  If boTimer Then
                        Me.Label1.Text = "T"
                  Else
                        Me.Label1.Text = "A"
                  End If
                  Me.Label1.ForeColor = Color.White
                  Me.Label1.BackColor = Color.Green
                  Call Crude_Light_Oil() 'Umrechnung für Hoch/Tief aufrufen.
                  Call MGewinnsichern() 'Gewinnsicherung nach Summe X
                  'Hier werden die Subben für den Automaten aufgerufen.
                  Select Case inCLPosO
                        Case 0
                              Call Automat_Oil()
                        Case Is > 0
                              Call Automat_Oil_Long()
                              Call VDrehen()
                              Call GewSicherung()
                        Case Is <= -1
                              Call Automat_Oil_Short()
                              Call VDrehen()
                              Call GewSicherung()
                  End Select
            End If
      End Sub