Use of Horizontal and Vertical Scroll Bar

Private Sub cmddraw_Click()

Dim style

style = InputBox$("Enter style(0-6):")

If Val(style) < 0 Or Val(style) > 6 Then

MsgBox ("Invalid style")

Else

pic.DrawStyle = Val(style)

End If

End Sub

Private Sub cmdexit_Click()

End

End Sub

Private Sub Form_Load()

Form1.WindowState = 0

End Sub

Private Sub HScroll1_Change()

Dim x, y, rad

pic.DrawWidth = HScroll1.Value

x = pic.ScaleWidth / 2

y = pic.ScaleHeight / 2

pic.Cls

pic.Circle (x, y), VScroll1.Value * 10, RGB(255, 0, 0)

End Sub

Private Sub HScroll1_Scroll()

HScroll1_Change

End Sub

Private Sub VScroll1_Change()

Dim x, y, rad

x = pic.ScaleWidth / 2

y = pic.ScaleHeight / 2

pic.Cls

pic.Circle (x, y), VScroll1.Value * 10, RGB(255, 0, 0)

End Sub

Private Sub VScroll1_Scroll()

VScroll1_Change

End Sub