Some VB6.0 Drawing …

Private Sub Form_Load()

FillStyle = 0 ' Draw in solid color

BackColor = QBColor(15) ' Set background to white

End Sub

• Start things out by make the screen white …

• … And defining a procedure to draw a box

Private Sub boxDraw(boxTop As Integer, boxLeft As Integer,

color As Integer)

Form1.Line (boxTop, boxLeft)-(boxTop + 200,

boxLeft + 200), QBColor(color), B

End Sub

Previous slide

Next slide

Back to first slide

View graphic version