Option Explicit
Public Sub lineFromPoint2YWithAngle
	Begin Dialog UserDialog 400,203 ' %GRID:10,7,1,1
		TextBox 40,21,90,21,.X
		TextBox 40,49,90,21,.Y
		TextBox 40,77,90,21,.Z
		Text 30,7,90,14,"First Point",.Text1
		TextBox 250,21,90,21,.Y2
		Text 20,28,10,14,"X",.Text2
		Text 20,56,10,14,"Y",.Text3
		Text 20,84,10,14,"Z",.Text4
		TextBox 250,49,90,21,.angle
		Text 220,28,10,14,"Y",.Text5
		Text 200,56,40,14,"Angle",.Text6
		Text 240,7,90,14,"Second Point",.Text7
		OKButton 100,154,90,21
		CancelButton 220,154,90,21
	End Dialog
	Dim dlg As UserDialog
	Dim result As Integer

	result = Dialog( dlg )

	If result = -1 Then
		Dim doc As FMDocument
		Dim x As Double
		Dim y As Double
		Dim z As Double
		Dim angle As Double
		Dim y2 As Double

		Set doc = Application.ActiveDocument

		x = CDbl( dlg.X )
		y = CDbl( dlg.Y )
		z = CDbl( dlg.Z )
		y2 = CDbl( dlg.y2 )
		angle = CDbl( dlg.angle )

		angle = angle * 3.1415926535 / 180

		doc.AddLine2Points( x, y, z, x + (y2-y)/Tan( angle ), y2, z )
	End If
	
End Sub