Como hacer que que una línea aumente de 0 grados a 90

algo asi If Option1.Value = True Then
If (a * 180 / 3.141592564) < 100 Then
a = (a * 180 / 3.141592564 + 1) / 2520 / 3.141592564
Label1.Caption = d
Label2.Caption = a * 180 / 3.141592564
x =

y=
Label3.Caption = x
Label4.Caption = y
Line1.y2 = x - Val(Line1.x1)
Line1.x2 = Val(Line1.y1) - y
Line2.x1 = Line1.x2
Line2.y1 = Line1.y2
Line2.x2 = Val(Line2.x2) + xx2
Line2.y2 = Val(Line2.y1) - yy2
Line3.y2 = Line2.y2 + 500
Line3.x2 = Val(Line2 - x2)
Line3.x1 = Line2.x2
Line3.y1 = Line2.y2
End If
End If