Drawing Tools

Private Sub cmdcircle_Click()

For i = 100 To 10000 Step 100

Me.Circle (i, i), i, RGB(255, 0, 0)

Next i

End Sub

Private Sub cmdclose_Click()

End

End Sub

Private Sub cmdline_Click()

Dim i As Integer

ScaleMode = 3 'set scale mod to pixels'

For i = 10 To 250 Step 3

Me.Line (10, i)-(250, i), RGB(0, 0, 255)

Me.Line (i, 10)-(i, 250), RGB(255, 0, 255)

DoEvents

Next i

End Sub

Private Sub cmdpset_Click()

Dim i As Integer

Dim j As Integer

Dim red As Integer

Dim green As Integer

Dim blue As Integer

ScaleMode = 3

For i = 1 To 400

For j = 1 To 400

red = CInt(Rnd * 255)

green = CInt(Rnd * 255)

blue = CInt(Rnd * 255)

Me.PSet (i, j), RGB(red, green, blue)

Next j

Next i

End Sub

Private Sub cmdrefresh_Click()

dwg.Refresh

End Sub

Private Sub cmdsq_Click()

For i = 600 To 6000 Step 500

Me.Line (i, i)-Step(1000, 1000), , B

Next

End Sub