Public Sub SetConnectElement( _
   ByVal Object As Object, _
   ByVal IsKeyPoint As Boolean, _
   ByVal UseVirtualEdge As Boolean, _
   ByVal x As Double, _
   ByVal y As Double, _
   ByVal z As Double _
)