• Home
 · 
• Miscellaneous
 · 
• Choose out your best color in RGB mode

Choose out your best color in RGB mode

Choose out your best color in RGB mode

Rate Choose out your best color in RGB mode

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Timer1.Interval = 300
End Sub


Private Sub Command2_GotFocus()
Timer1.Interval = 0
Label1.Visible = False
End Sub


Private Sub Command2_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.Visible = True
End Sub

Private Sub HScroll1_Change()
Label1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
Label2.Caption = "rgb(" & HScroll1.Value & "," & HScroll2.Value & "," & HScroll3.Value & ")"

End Sub

Private Sub HScroll2_Change()
Label1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
Label2.Caption = "rgb(" & HScroll1.Value & "," & HScroll2.Value & "," & HScroll3.Value & ")"

End Sub

Private Sub HScroll3_Change()
Label1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
Label2.Caption = "rgb(" & HScroll1.Value & "," & HScroll2.Value & "," & HScroll3.Value & ")"

End Sub

Private Sub Timer1_Timer()
If Label1.Visible = True Then
Label1.Visible = False
Else
Label1.Visible = True
End If

End Sub

Private Sub VScroll1_Change()
Label1.ForeColor = RGB(VScroll1.Value, 0, VScroll2.Value)
End Sub

Private Sub VScroll2_Change()
Label1.ForeColor = RGB(VScroll1.Value, 0, VScroll2.Value)
End Sub