Sub chk_CheckedChange(Checked As Boolean)
Dim index As Int
index = clv3.GetItemFromView(Sender)
Dim pnl As Panel
pnl = clv3.GetPanel(index)
Dim zeittext As EditText
zeittext = pnl.GetView (2)
Dim chk As CheckBox
chk = pnl.GetView(3)
Dim lbl As Label
lbl = pnl.GetView(0)
If chk.Checked = True Then
lbl.Textcolor = Colors.Red
' part for LocoTimer1 START
'...
Else
lbl.Textcolor = Colors.White
' part for LocoTimer1 STOP
' ...
End If
Msgbox("Lokomotive: " & clv3.GetValue(index) & CRLF & "Aktiv: " & chk.Checked & CRLF & "Gesamtzeit: " & zeittext.text, "")
End Sub
Sub LocoTimer1_Tick
' ...
End Sub