• Home
 · 
• Custom Controls/Forms/Menus
 · 
• 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

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
• 2
• 3
• 4
• 5

(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