Hem / Tips & tricks
Dim lngLineCount As LongOn Error Resume Next lngLineCount = SendMessageLong(Text1.hwnd, EM_GETLINE, 0&, 0&)Label1 = Format$(lngLineCount, "##,###")