Keskustelu: Ohjelmointikysymykset: VB6: Rivin selvitys

Eli olen tekemässä harjoitusmielessä tekstieditoria, mutta nyt pitäsi saada ohjelma näyttämään rivinumeron jota käyttäjä selaa. Miten tämän näkisi.
Ohjelmani käyttää RichTextBoxia.

Ja sitten vielä toinen juttu:
Miten voin avata tietyn tiedoston siihen ohjelmaan joka sen oletuksena ajaa.

Näyttää: rivi/rivejä

texti=CStr(RichTextBox1.GetLineFromChar(RichTextBox1.SelStart) + 1) + " / " + CStr(GetLineCount(RichTextBox1.hwnd))

Eipä toimi.
Tulee virhe Compile error: sub or function not defined.
Herjaa kohtaa GetLineCount
Muutin tuon RichTextBox1:n siihen, minkä niminen se on formillani.

Tässä puuttuva määrittely:

Const EM_GETLINECOUNT = &HBA
Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
        (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

' lngHWnd : TextBox/RichTextBox
Function GetLineCount(ByVal lngHwnd As Long) As Long
    GetLineCount = SendMessage(lngHwnd, EM_GETLINECOUNT, 0, 0)
End Function