Question

怎样做个VB程序让shape 1秒钟闪一次呢

Answer 1

【楼主看清楚，我是第一个】
添加一个timer控件到窗体，把它的interval属性设置为1000（单位是毫秒，1000毫秒即1秒），然后双击timer控件，你会跳转到Private Sub Timer1_Timer()事件，在这个事件下输入如下代码即可：
Shape1.Visible = Not (Shape1.Visible)

Answer 2

让我试试
二楼说一楼的有错
看看我的有没有错
添加两个timer
timer1.interval=1000
timer2.interval=10,enable=false
Private Sub Timer1_Timer()
Timer2.Enabled = True
End Sub

Private Sub timer2_timer()
Static a As Integer
Shape1.Visible = Not (Shape1.Visible)
a = a + 1
If a = 2 Then
a = 0
Timer2.Enabled = False
End If
End Sub

Answer 3

楼上的那个程序有错，按照这个程序时shape1出现一秒再消失一秒，根本不是闪一次，还好意思拿出来炫····