include("../include.php"); writeHeader("Current line number", "Programming » Visual Basic 6 » Visual Basic 6 Code » Controls » Textbox » ");?>
Public Declare Function SendMessageLong Lib _ "user32" Alias "SendMessageA" _ (ByVal hwnd As Long, _ ByVal wMsg As Long, _ ByVal wParam As Long, _ ByVal lParam As Long) As Long Public Const EM_LINEFROMCHAR = &HC9 Public Function GetLine(txt As TextBox) GetLine = SendMessageLong(txt.hwnd, EM_LINEFROMCHAR, -1&, 0&) + 1 End Sub