lunedì 30 gennaio 2012

Come creare un gioco



Strumenti

picturebox = quante ne volete
button = 1
Label = 3

Codici

Private Sub Form1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.MouseEnter
If Button1.Enabled = False Then MsgBox("Hai perso!")
Me.Close()
End If
Private Sub Label1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label1.MouseEnter
MsgBox("Hai vinto sbloccato livello 2")
Form2.Show()
Me.Hide()
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Label1.Enabled = True Button1.Enabled = False