First program here using a Check Box and a Text Box, when it starts it looks correct when I check the box the text box displays "Hello World" but when I uncheck the box nothing changes....trying to figure out if I missed something...... a whole 2 lines of code added to the form. Using inform 1.3 build 20 and qb 2.02.

Sub __UI_ValueChanged (id As Long)
    Select Case id
        Case ClickTheBoxCB

            If ClickTheBoxCB.Value = -1 Then Text(TextBox1TB) = "Lonely World" else
            If ClickTheBoxCB.Value = 0 Then Text(TextBox1TB) = "Hello World"

    End Select
End Sub