Private Declare Function SetSysColors Lib "user32" (ByVal nChanges _
As Long, lpSysColor As Long, lpColorValues As Long) As Long
Dim NewColor(0) As Long
Dim IndexArray(0) As Long
Private Const COLOR_GRAYTEXT = 17
Private Sub Command1_Click()
IndexArray(0) = COLOR_GRAYTEXT
NewColor(0) = QBColor(Int(Rnd * 16))
SetSysColors 1, IndexArray(0), NewColor(0)
End Sub
Private Sub Command2_Click()
Text1.Enabled = False
End Sub
No comments:
Post a Comment