终极骰子.rar

用VB做程序赌大小Dima,b,cAsInteger PrivateSubCommand1_Click() Timer1.Enabled=True IfTimer1.Enabled=TrueThen WindowsMediaPlayer1.URL="C:\DocumentsandSettings\Administrator\桌面\终极色子\Media\1683.mp3" EndIf EndSub PrivateSubCommand2_Click() Timer1.Enabled=False Dimimage4_name,image