Translation and limited rotation of TextBox can be accomplished by setting the new origin, like shown below.
Sub MoveTextBox()
Dim activeDoc As DrawingDocument =
m_inventorApplication.ActiveDocument
Dim newSketch As DrawingSketch =
activeDoc.ActiveSheet.Sketches.Add
newSketch.Edit()
Dim textBox As Inventor.TextBox
textBox = newSketch.TextBoxes.AddFitted(
m_inventorApplication.TransientGeometry.
CreatePoint2d(10, 10), "TestText")
textBox.SetColor(255, 255, 0)
' supports only 0, pi/2, pi, 1.5pi
textBox.Rotation = Math.Atan(1) * 2
' moves to (20,20)
textBox.Origin = m_inventorApplication.
TransientGeometry.CreatePoint2d(20, 20)
newSketch.ExitEdit()
End Sub
