Private Sub Timer1_Timer()
For Number = 0 To Label1.UBound
If Label2.Visible Then
    If Label1(Number).Top < Label2.Top Then
        Label1(Number).Top = Label1(Number).Top + 100
    Else
        Label1(Number).Top = Label1(Number).Top - 100
 
    End If
End If
 
Next
End Sub
 
Private Sub Timer2_Timer()
For Number = 0 To Label1.UBound
 
If Label2.Visible Then
If Label1(Number).Left < Label2.Left Then
Label1(Number).Left = Label1(Number).Left + 100
Else
Label1(Number).Left = Label1(Number).Left - 100
End If
End If
Next
End Sub

label1 moveto label2

Wer anderen eine Grube gr?bt, hat wohl ein Grubengrabger?t!

Beitrag wurde zuletzt am 08.10.08 um 17:48:08 editiert.