[VB6] cambiare colore ad un campo di testo

[yyzyyz]

Dim onoff As Boolean
Private Sub Command1_Click()
If onoff = False Then
    Text1.BackColor = RGB(155, 0, 0)
    onoff = True
    Else
    Text1.BackColor = RGB(255, 255, 255)
    onoff = False
End If

End Sub
Private Sub Form_Load()
onoff = False
End Sub