Private Sub CommandButton2_Click()
Me.Hide
End Sub
Private Sub CommandButton1_Click()
PKT1 = getPIK(Me.TextBox1.Text)
PKT2 = getPIK(Me.TextBox2.Text)
PKT3 = getPIK(Me.TextBox3.Text)
Dim testDouble As Double = 40.0R
R1 = Me.TextBox5.Text
R2 = Me.TextBox6.Text
R3 = Me.TextBox4.Text
Me.Label5.Caption = Format(PKT1.X, "0.00")
Me.Label15.Caption = Format(PKT1.Y, "0.00")
Me.Label12.Caption = Format(PKT2.X, "0.00")
Me.Label16.Caption = Format(PKT2.Y, "0.00")
Me.Label13.Caption = Format(PKT3.X, "0.00")
Me.Label14.Caption = Format(PKT3.Y, "0.00")
End Sub

Sub zmienne()
Dim X1 As Point3d
Dim X2 As Point3d
Dim X3 As Point3d
Dim R1 As Point3d
Dim R2 As Point3d
Dim R3 As Point3d
X1.X = PIK1.X
X1.Y = PIK1.Y
X2.X = PIK2.X
X2.Y = PIK2.Y
X3.X = PIK3.X
X3.Y = PIK3.Y

End Sub

Sub kolo(X1 As Point3d, R1 As Double)
Dim kolo2 As EllipseElement
Set kolo2 = CreateEllipseElement2(Nothing, X1, R1, R1, Matrix3dIdentity)
kolo2.LineWeight = 3
ActiveModelReference.AddElement kolo2
kolo2.Redraw
End Sub


Private Sub CommandButton3_Click()
X1.X = PKT1.X
X1.Y = PKT1.Y
kolo X1, testDouble
End Sub


Function getPIK(NR As String) As Point3d
Dim oElEnum As ElementEnumerator
Dim El As Element
Set oElEnum = ActiveModelReference.GetSelectedElements
oElEnum.Reset
While oElEnum.MoveNext
Set oEl = oElEnum.Current
If oEl.Type = msdElementTypeText Then
If oEl.AsTextElement.Text = NR Then
getPIK = oEl.AsTextElement.Origin
End If
End If
Wend
End Function