Form1.Fontname = Text1.Fontname
Form1.FontSize = Text1.Fontsize
 
etc.

TextLenTwips = Form1.TextWidth(Text1.Text)

Private Declare Function SendMessage Lib "user32" Alias _
     "SendMessageA" _
     (ByVal hwnd As Long, _
      ByVal wMsg As Long, _
      ByVal wParam As Long, _
      lParam As Any) As Long
 
Private Const EM_LINELENGTH = &HC1
 
Private Function GetLineLenght(Byval hwnd As Long) As Long
    GetLineLenght = SendMessage(hwnd,EM_LINELENGTH,0,0&)    
End Function