利用timer控件
Private Sub Timer1_Timer()
Static n As Boolean
Cls
Call Printface
Printeye (n)
n = Not n
End Sub
Function Printface()
Dim x As Long, y As Long
x = 500
y = 1500
Line (x, x)-(x, y)
Line (x, x)-(y, x)
Line (y, x)-(y, y)
Line (x, y)-(y, y)
End Function
Function Printeye(ByVal b As Boolean)
If b Then
Circle (800, 800), 50, vbBlack
Circle (1200, 800), 50, vbBlack
Else
Circle (900, 800), 50, vbBlack
Circle (1100, 800), 50, vbBlack
End If
End Function
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024