And Call The Procedure

• Calling the procedure to draw a 200 x 200 box (that’s what drawBox is defined to do) positioned so its upper left hand corner is at (1000,1000) in Form1, and so that its color is blue

• Now, draw it 10 times, moving right ...

Private Procedure Form_Click()

Dim indx As Integer

FillColor = QBColor(9)

FillStyle = 0

Call drawBox(1000, 1000, 9) ‘ Box is blue

End Sub

Private Procedure Form_Click()

Dim indx As Integer

FillColor = QBColor(9)

FillStyle = 0 For indx = 1 to 10

Call drawBox(1000+(300*I), 1000, 9) ‘ Box is blue

Next indx

End Sub

Previous slide

Next slide

Back to first slide

View graphic version