Brauche dringend Hilfe!
ich brauche hilfe hier ist der quellcode:
Option Explicit
Dim i As Integer
Dim k As Integer
Private Sub CmdExit_Click()
End
End Sub
Private Sub CmdReset_Click()
Randomize
Shape1.Left = Rnd * (Me.ScaleWidth - Me.Shape1.Width)
Shape1.Top = Rnd * (Me.ScaleHeight - Me.Shape1.Height)
End Sub
Private Sub CmdStart_Click()
For i = 1 To 100
Shape1.Left = Shape1.Left + 100
Next i
For k = 1 To 100
Shape1.Height = Shape1.Height + 100
Next k
End Sub
Private Sub CmdStop_Click()
Timer.Enabled = False
End Sub
Private Sub Command1_Click()
Shape1.Visible = True
End Sub
Private Sub Timer_Timer()
If ScaleWidth = Shape1.Left + Shape1.Width Then i = -1
End If
If Shape1.Top <= k Then k = k
End If
End Sub
