画图板VB源代码

Dim x0, y0, x1, y1, flag

Private Sub Command1_Click()
Picture1.Refresh
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Option10_Click()
Picture1.ForeColor = vbBlue
End Sub

Private Sub Option11_Click()
Picture1.ForeColor = vbYellow
End Sub

Private Sub Option6_Click()
Picture1.DrawWidth = 10
End Sub

Private Sub Option7_Click()
Picture1.DrawWidth = 6
End Sub

Private Sub Option8_Click()
Picture1.DrawWidth = 2
End Sub