Private Sub CK_Click()
End
End Sub
Private Sub CMERAH_Click()
Me.BackColor = vbRed
End Sub
Private Sub Label1_Click()
Me.BackColor = vbcyank
End Sub
Private Sub Label2_Click()
Me.BackColor = vbBlue
End Sub
Private Sub Label3_Click()
Me.BackColor = vbYellow
End Sub
Private Sub Label4_Click()
Me.BackColor = vbGreen
End Sub
Private Sub Label5_Click()
Me.BackColor = vbMagenta
End Sub
Private Sub Label7_Click()
Me.BackColor = vbBlack
End Sub
|
Tidak ada komentar:
Posting Komentar