We used this bit of code to move the label on a view. U might be able to pick the bones out for what you want...??
Sub CreateSheetTank(oApp As Inventor.Application, oPartDoc As Inventor.PartDocument, viewConfigsTank As ViewConfigTank(), borderFilename As String)
'Dim sTemplateFile As String = "O:\Inventor\Templates\A3 Yorkshire Water Contract Border.dwg"
Dim sTemplateFile As String = "O:\Inventor\Templates\" & borderFilename
' create new doc with 1 sheet
Dim oDrawDoc As DrawingDocument = oApp.Documents.Add(DocumentTypeEnum.kDrawingDocumentObject, sTemplateFile)
Dim oSheet As Sheet = oDrawDoc.Sheets.Item(1)
Dim viewConfigTank As ViewConfigTank
For Each viewConfigTank In viewConfigsTank
' view insertion point
Dim oPlacementPoint As Point2d = oApp.TransientGeometry.CreatePoint2d(viewConfigTank.X, viewConfigTank.Y)
' create view
Dim oView As DrawingView = oSheet.DrawingViews.AddBaseView(oPartDoc, oPlacementPoint, viewConfigTank.Scale, viewConfigTank.Orientation, viewConfigTank.Style, "Master")
' create work points
Const dimOffset = 1
AddWorkPoints(oApp, oView, oSheet, viewConfigTank.WorkPointPairs, dimOffset)
oView.Name = viewConfigTank.Name
oView.ShowLabel = True
' shift label down a bit
Dim bottomOfView As Double = oView.Position.Y - (oView.Height / 2.0)
oView.Label.Position = oApp.TransientGeometry.CreatePoint2d(oView.Label.Position.X, bottomOfView - dimOffset - 0.2)
Next
End Sub