|
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 Inputs: 3 command boxes hscrollbar 1st frame With 2 option buttons(circle,square) 2nd frame With 6 option buttons (fillstyles:transparent,solid,HZal-line, cross,diagonal cross,VEal-line 3 command buttons:draw,clear,exit Assumes: basic graphic codes,simple functions. the program contains two forms. |