Private Sub Command1_Click()

        Label1.ForeColor = &HFFFF&

End Sub

Private Sub Command2_Click()

        Label1.ForeColor = &H80000012

End Sub

Private Sub Command3_Click()

        Label1.ForeColor = &HFF&

End Sub

Private Sub Command4_Click()

Label1.ForeColor = &HC00000

End Sub

Back to vb6 exercises