在模块文件里输入这些:
Public Const WM_USER = &H400
Public Const EM_SETTARGETDEVICE = (WM_USER + 72)
Public Declare Function GetDC Lib "user32" (ByVal hWnd As Long) As Long
Public 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 Sub Form_Load()
Call SendMessage(RichTextBox1.hWnd, EM_SETTARGETDEVICE, 0, 1)
End Sub