This program will change background colour of the form as you scroll the scrollbars
This program will change background colour of the form as you scroll the scrollbars
Rate This program will change background colour of the form as you scroll the scrollbars
(1(1 Vote))
Private Sub Form_Load()
Form1.WindowState = 2
End Sub
Private Sub Command1_Click()
Dim s As String
s = MsgBox("Are you sure?", vbYesNo)
If s = vbYes Then
End
End If
End Sub
Private Sub HScroll1_Change()
Form1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
End Sub
Private Sub HScroll1_Scroll()
Form1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
End Sub
Private Sub HScroll2_Change()
Form1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
End Sub
Private Sub HScroll2_Scroll()
Form1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
End Sub
Private Sub HScroll3_Change()
Form1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
End Sub
Private Sub HScroll3_Scroll()
Form1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
End Sub
Private Sub Timer1_Timer()
Timer2.Enabled = True
End Sub
This program will change background colour of the form as you scroll the scrollbars Comments
No comments yet — be the first to post one!
Post a Comment