If CBool(Packet.ShowLights And DL_SIGNAL_L) = True Then DoSomething()
If (og.Flags [B]&[/B] Flags.OutGaugeFlags.OG_PITSPEED) > 0 Then
MsgBox("ON")
Else
MsgBox("OFF")
End If
If (og.Flags [B]&[/B] Flags.OutGaugeFlags.OG_PITSPEED) = True Then
MsgBox("ON")
Else
MsgBox("OFF")
End If
If (og.Flags [B]And[/B] Flags.OutGaugeFlags.OG_PITSPEED) > 0 Then
MsgBox("ON")
Else
MsgBox("OFF")
End If
If (og.Flags [B]And[/B] Flags.OutGaugeFlags.OG_PITSPEED) = True Then
MsgBox("ON")
Else
MsgBox("OFF")
End If
If (og.Flags [B]&[/B] Flags.OutGaugeFlags.OG_PITSPEED) = Flags.OutGaugeFlags.OG_PITSPEED Then
MsgBox("ON")
Else
MsgBox("OFF")
End If
Select Case CInt(og.Flags)
Case Is = 49152
LBL_OG_Local.Text = "Local = Metric"
LBL_OG_Handbrake.Text = "Handbrake = Off"
LBL_OG_Shiftlight.Text = "Shiftlight = Off"
Case Is = 49156
LBL_OG_Local.Text = "Local = Metric"
LBL_OG_Handbrake.Text = "Handbrake = On"
LBL_OG_Shiftlight.Text = "Shiftlight = Off"
Case Is = 49157
LBL_OG_Local.Text = "Local = Metric"
LBL_OG_Handbrake.Text = "Handbrake = On"
LBL_OG_Shiftlight.Text = "Shiftlight = On"
Case Is = 49153
LBL_OG_Local.Text = "Local = Metric"
LBL_OG_Handbrake.Text = "Handbrake = Off"
LBL_OG_Shiftlight.Text = "Shiftlight = On"
Case Is = 0
LBL_OG_Local.Text = "Local = Imperial"
LBL_OG_Handbrake.Text = "Handbrake = Off"
LBL_OG_Shiftlight.Text = "Shiftlight = Off"
Case Is = 4
LBL_OG_Local.Text = "Local = Imperial"
LBL_OG_Handbrake.Text = "Handbrake = On"
LBL_OG_Shiftlight.Text = "Shiftlight = Off"
Case Is = 5
LBL_OG_Local.Text = "Local = Imperial"
LBL_OG_Handbrake.Text = "Handbrake = On"
LBL_OG_Shiftlight.Text = "Shiftlight = On"
Case Is = 1
LBL_OG_Local.Text = "Local = Imperial"
LBL_OG_Handbrake.Text = "Handbrake = Off"
LBL_OG_Shiftlight.Text = "Shiftlight = On"
End Select