Shared Function _ SendMessage(ByVal hWnd As Integer, ByVal wMsg As Integer, _ ByVal wParam As Integer, ByVal lParam As Integer) As IntegerEnd Function' Determine the current line in a multiline TextBox control' Example: MessageBox.Show(GetTextBoxCurrentLine(TextBox1))Function GetTextBoxCurrentLine(ByVal tb As TextBox) As Integer Const EM_LINEFROMCHAR As Integer = &HC9 Return SendMessage(tb.Handle.ToInt32(), EM_LINEFROMCHAR, -1, 0) + 1End Function
Charlie has over a decade of experience in website administration and technology management. As the site admin, he oversees all technical aspects of running a high-traffic online platform, ensuring optimal performance, security, and user experience.























