1.vb抽奖程序
vb抽奖程序
Private Sub Command1_Click()
If Command1.Caption = "开始" The抽奖强劲切割源码公式n
Timer1.Enabled = True
Command1.Caption = "停止"
Else
Command1.Caption = "开始"
Timer1.Enabled = False
End If
End Sub
Private Sub Form_Load()
Command1.Caption = "开始"
Timer1.Interval =
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
Static a
a = a + 1
Label1 = a
If a = Then a = 0
End Sub