现画一个command命令按钮,进行粘贴。
Private Sub Command1_Click()
Show
Me Scale (0, 0)-(18, 8)
Me. Auto redraw =True
Me. Draw Mode =2
Circle (3, 4), 3, VB Red
Me. Auto Redraw =false
Line (7, 1) –step (4, 6) .VBGreen .B
Line (13, 7) –step (4, 0).VBBlue
Line step (0, 0) –step (-2, -6). VB Blue
Line step (0, 0) –step (-2, 6). VB Blue
End sub