Togglebutton question

[Electrocutioner]

Following code crashes with Cannot Parse: true as boolean error

Sub tgl_PWR_CheckedChange(Checked As Boolean)
 
    Select tgl_PWR.Checked
   Case "True" :txtLog.text= "ON"
   Case "False":txtLog.text= "OFF"
   End Select
   
End Sub

Im not sure what is wrong please help.
Thank you!

 

[KitCarlson]

I think you are comparing a boolean value to strings. In the Case, try True, not "True", the same for False.

 

[worm]

Correct code:

Sub tgl_PWR_CheckedChange(Checked As Boolean)
    Select tgl_PWR.Checked
        Case True :txtLog.text= "ON"
        Case False:txtLog.text= "OFF"
    End Select
End Sub

 

[klaus]

Or :

Sub tgl_PWR_CheckedChange(Checked As Boolean)
    If Checked Then
        txtLog.text= "ON"
    Else
        txtLog.text= "OFF"
    End If
End Sub

Best regards.