EditPoint::MoveToPoint Method (TextPoint^)

Sub MoveToPointExample()
   Dim objTextDoc As TextDocument
   Dim objMovePt As EditPoint
   Dim objEditPt As EditPoint, iCtr As Integer

   ' Create a new text file.
   DTE.ItemOperations.NewFile("General\Text File")

   ' Get a handle to the new document and create an EditPoint.
   objTextDoc = DTE.ActiveDocument.Object("TextDocument")
   objEditPt = objTextDoc.StartPoint.CreateEditPoint
   objMovePt = objTextDoc.EndPoint.CreateEditPoint

   ' Insert ten lines of text.
   For iCtr = 1 To 10
      objEditPt.Insert("This is a test." & Chr(13))
   Next iCtr
   ' Move the active point to the location of the second edit point 
   ' and then insert some text.
   objEditPt.StartOfDocument()
   objMovePt.LineDown(3)
   objEditPt.MoveToPoint(objMovePt)
   objEditPt.Insert("HELLO")
End Sub