Public Class Form1
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim rnd As New Random
Button1.Location = New Point(rnd.Next(1, 270), rnd.Next(1, 270))
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Timer1.Interval = 50 Then MsgBox("Glückwunsch, Sie haben es Geschaft") : End
MsgBox("Level Up, SCHNELLER!")
Timer1.Interval -= 50 : ToolStripLabel1.Text += 50
End Sub
End Class
Da hast du dein Code...
was brauchst du?
einen Timer:
- Interval auf 1000
- Enabled: True
ein ToolStripLabel:
- 1. Label soll auf 0
- 2. Label auf 1000
ein Button