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
