'Tickdaten von der TWS holen
Private Sub AxTws1_tickPrice(ByVal sender As Object, ByVal e As _
  AxTWSLib._DTwsEvents_tickPriceEvent) Handles AxTws1.tickPrice
  Dim i6, n As Integer
  n = 0
  For i6 = 0 To inDBEnde
    If e.id = n Then
      If e.tickType = 4 Then
        With Me.DataGridView1
          If e.id = 0 Then
            Oil.doKurs = e.price
          End If
          .Rows(i6).Cells(6).Value = Format(e.price, "0.#0") 'Eintragen des 
          ' Kurses in die jeweilige Zelle.
        End With
      End If
    End If
    n += 1
  Next i6
  With Me.DataGridView4
  If e.id = 0 Then
    If e.tickType = 6 Then
      .Rows(0).Cells(0).Value = e.price 'Eintragen des Kurses in die jeweilige 
      ' Zelle.
      Oil.doHoch = e.price
      If boCLUmsch Then
        If Oil.doHoch > Oil.doHoch1 Then
          Oil.doKurs = Oil.doHoch
          Me.DataGridView3.Rows(0).Cells(0).Value = Oil.doKurs
          Oil.doHoch1 = Oil.doHoch
        End If
      End If
    End If
 
    If e.tickType = 1 Then
     doBid = e.price
    End If
    If e.tickType = 2 Then
      doAsk = e.price
    End If
    If boBidAsk Then
      Me.B_VerkaufenCL.Text = "Sell" & " ( " & Format(doBid, "0.#0") & " )"
      Me.B_KaufenCL.Text = "Buy" & " ( " & Format(doAsk, "0.#0") & " )"
    End If
    If e.tickType = 7 Then
      .Rows(0).Cells(1).Value = e.price 'Eintragen des Kurses in die jeweilige 
      ' Zelle.
      Oil.doTief = e.price
      If boCLUmsch Then
        If Oil.doTief1 = 0 Then Oil.doTief1 = Oil.doTief
          If Oil.doTief < Oil.doTief1 Then
            Oil.doKurs = Oil.doTief
            Me.DataGridView3.Rows(0).Cells(2).Value = Oil.doKurs
            Oil.doTief1 = Oil.doTief
          End If
        End If
      End If
    End If
  End With
  If boAPI Then
    Me.Label1.BackColor = Color.Purple
    Call Ablauf()
  End If
End Sub