DrawCircle

Private Sub Command1_Click()
'form scale

Form2.Scale (0, 0)-(100, 100)
Form2.Show
'fill styles

If Option3.Value = True Then
Form2.FillStyle = 1
ElseIf Option4.Value = True Then
Form2.FillStyle = 0
ElseIf Option5.Value = True Then
Form2.FillStyle = 2
ElseIf Option6.Value = True Then
Form2.FillStyle = 3
ElseIf Option7.Value = True Then
Form2.FillStyle = 6
ElseIf Option8.Value = True Then
Form2.FillStyle = 7
End If
'DOING THE ABOVE ...IT ELLIMINATES UNTIL

'IT FINDS THE USERS OPTION

X = HScroll1.Value
'THIS IS LIKE DIM WHICH MAKES 1<X< 50


If Option1.Value = True Then
Form2.Line (50 - X, 50 - X)-(50 + X, 50 + X), , B
'B DUPLICATES THE CO-ORDINATES BUT ON THE OPPOSITE SIDES

ElseIf Option2.Value = True Then
Form2.Circle (50, 50), X
End If
End Sub

Private Sub Command2_Click()
Form2.Cls
End Sub

Private Sub Command3_Click()
End
End Sub