VB_2014_SLIP 12





SLIP 12_1

Private Sub Check1_Click()
If Check1.Value = 1 Then

Form1.BackColor = vbRed
Check1.Caption = "blue"
Else
Form1.BackColor = vbGreen
Check1.Caption = "Red"
End If


End Sub

No comments:

Post a Comment

Note: only a member of this blog may post a comment.

Subscribe to: Posts (Atom)