- Private Sub bouton_Click()
- c = MsgBox("Bravo", vbInformation, "Le jeu de Coco")
- userform1.Hide
- End Sub
-
-
- Private Sub bouton_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
- a = Int(200 * Rnd) + 1
- b = Int(200 * Rnd) + 1
- bouton.Left = a
- bouton.Top = b
- End Sub
-
- Private Sub CommandButton1_Click()
- c = MsgBox("Pssss vraiment trop nul", vbInformation, "Le jeu de Coco")
- c = MsgBox("Allez faire un tour sur ce site : http://nico-le-coco.fr.st", vbInformation, "Le jeu de Coco")
- userform1.Hide
- End Sub
-
- Private Sub CommandButton1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
- c = MsgBox("Tu as triché, donc tu as perdu !", vbInformation, "Le jeu de Coco")
- bouton.Visible = False
- CommandButton1.Top = 70
- CommandButton1.Left = 140
- CommandButton1.Height = 200
- CommandButton1.Width = 200
- End Sub
Private Sub bouton_Click()
c = MsgBox("Bravo", vbInformation, "Le jeu de Coco")
userform1.Hide
End Sub
Private Sub bouton_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
a = Int(200 * Rnd) + 1
b = Int(200 * Rnd) + 1
bouton.Left = a
bouton.Top = b
End Sub
Private Sub CommandButton1_Click()
c = MsgBox("Pssss vraiment trop nul", vbInformation, "Le jeu de Coco")
c = MsgBox("Allez faire un tour sur ce site : http://nico-le-coco.fr.st", vbInformation, "Le jeu de Coco")
userform1.Hide
End Sub
Private Sub CommandButton1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
c = MsgBox("Tu as triché, donc tu as perdu !", vbInformation, "Le jeu de Coco")
bouton.Visible = False
CommandButton1.Top = 70
CommandButton1.Left = 140
CommandButton1.Height = 200
CommandButton1.Width = 200
End Sub