Dim posstartx1 As Long
Dim posstarty1 As Long
Dim posstartx2 As Long
Dim posstarty2 As Long
 
Do
 
posstartx1 = 150
posstartx2 = 2850
posstartx2 = 150
posstarty2 = 2550
 
 
Line1.X1 = posstartx1 + 1
Line1.Y1 = posstarty1 + 1
Line1.X2 = posstartx2 + 1
Line1.Y2 = posstarty2 + 1
 
Loop