Private Sub Form_Load()
Form2.AutoRedraw = True
End Sub
Private Sub Form_Resize()
Form2.Cls
Form2.Scale (-20000, 20000)-(20000, -20000)
Form2.DrawWidth = 3
Form2.Line (-15000, 0)-(15000, 0), vbBlue
Form2.ForeColor = vbBlue
Form2.Print "x"
Form2.DrawWidth = 2
Form2.DrawWidth = 1.2
Form2.Line (0, -15000)-(0, 15000)
Form2.ForeColor = vbBlue
Form2.Print "y"
Form2.CurrentX = 0
Form2.CurrentY = 0
Form2.Print "0"
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024