还有一个问题：关于文本框的

Question

Public Const EM_LINESCROLL = &HB6
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
SendMessage Text1.hwnd, EM_LINESCROLL, 向下滚动行数 为向上滚, ByVal CLng(向右滚动列数 负为向左滚）

Answer 1

Public Const EM_GETLINECOUNT = &HBADeclare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long'计算文本框共有几行
Dim LineCount As Long
  
LineCount = SendMessage(Text1.hwnd, EM_GETLINECOUNT, 0, ByVal 0&)