how to make a simple coollll vb game

>>>>>just copy paste the below code>>>>



Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)Command1.Top = Int(Rnd * 10000)Command1.Left = Int(Rnd * 10000)Command1.Width = Int(Rnd * 2500)Command1.Height = Int(Rnd * 5700)Command1.BackColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)End Sub
Private Sub Form_DblClick()MsgBox "YOU WON GAME OVER"EndEnd Sub
Private Sub Form_Load()Option1.Value = TrueMe.WindowState = 2End SubPrivate Sub Label3_Click()EndEnd SubPrivate Sub Option1_Click()
On Error Resume NextResult = Module1.sndPlaySound("C:\WINDOWS\INSTALL.WAV", 1)
End Sub
Private Sub Option2_Click()On Error Resume NextResult = Module1.sndPlaySound("C:\WINDOWS\", 1)End Sub