Private Type schnizel
left As Long
top As Long
End Type
 
 
Private Sub Form_Load()
Timer1.Interval = 20
End Sub
Private Sub Timer1_Timer()
Dim Schnittpunkt1 As schnizel
Schnittpunkt1.left = L1.X1
Schnittpunkt1.top = L1.Y2
 
End Sub