|
Dim cont As Integer Private Sub cmdsi_Click() MsgBox "Lo sapevo!!!", vbInformation, "Scemo!!!" Unload Me End Sub Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If X >= Command1.Left Or X <= Command1.Width Then Command1.Visible = False Command2.Visible = True End If cont = cont + 1 Select Case cont Case 2 MsgBox "dai su!!!", vbInformation, "Scemo!!!" Case 4 MsgBox "Ammettilo dai!!!", vbInformation, "Scemo!!!" Case 7 MsgBox "Mi fai ridere :) !!!", vbInformation, "Scemo!!!" Case 9 MsgBox "Sei proprio stupido a non ammetterlo!!!", vbInformation, "Scemo!!!" MsgBox "Vabbè dai mi fai un pò pena chiudiamo sto programma!!", vbInformation, "Scemo!!!" Unload Me End Select End Sub Private Sub Command2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If X >= Command2.Left Or X <= Command2.Width Then Command2.Visible = False Command1.Visible = True End If End Sub
|
|
