Private Declare Function SendMessage Lib "user32" Alias _
    "SendMessageA" _
    (ByVal hwnd As Long, _
     ByVal wMsg As Long, _
     ByVal wParam As Long, _
     ByVal lParam As Long) As Long
 
Private Const EM_FMTLINES = &HC8
 
Private Sub Form_Activate()
    Dim RVal As Long
    RVal = SendMessage(Text1.hwnd, EM_FMTLINES, 0, 0&)
End Sub