GUI Program to demonstrate Scroll Control

Private Sub Form_Load()
Print "font size demo"
End Sub

Private Sub HScroll1_Change()
Form1.BackColor = vbYello
End Sub

Private Sub HScroll2_Change()
Form1.FontSize = "20"
Print "Font size demo"
Form1.FontSize = "30"
Print "font size demo"
End Sub