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_GETLINECOUNT = &HBA ''''Private Const EM_SCROLL = &HB5 ''''Private Const SB_LINEDOWN = 1 Dim Sline As Integer Dim Lcount As Integer
''''End Sub
Private Sub Command1_Click() Dim i As Integer Form1.Text1.SelStart = 0 Form1.Text1.SetFocus Sline = SendMessage(Form1.Text1.hwnd, EM_GETLINECOUNT, 0&, 0&) Lcount = CInt(Text1.Text) If Lcount <= Sline Then
For i = 1 To Lcount - 1 SendKeys "{DOWN}" Next i Form3.Hide Else MsgBox "line over range"
End If ''''Unload Form3 '''' Form3.Text1.SetFocus End Sub
Private Sub Command2_Click() Unload Me End Sub
Private Sub Form_Activate() Form_Load End Sub
Private Sub Form_Load()
Text1.SelStart = 0 If Text1.Text = "" Then Text1.Text = 0 Else Text1.Text = Lcount End If
Text1.SelLength = Len(Lcount) Form3.Show Form3.Text1.SetFocus End Sub