ocr: - Codebox Example X 0001 // (111111111111111111111111111111111111 / 0002 '// CODEBOX EXAMPLE / 0003 '1/ CONTROL THAT HAS BUILT-IN LINE NUMBERS! // 0004 1/ // 0005 '/1 GREAT FOR YOUR SCRIPTING LANGUAGE! 0006 '1/ ITTTII - //// 7111111111 LIIIIIIILLIITTI // 0007 0008 0009 Private Sub rtfl_Change() 0010 0011 REPRINT LINE NUMBERS 0012 Dim iCurrIndex As Long 0013 Currindex = 1 + SendMessage(rtfl.hwnd, &HCE, 0, 0) 0014 PrintLineneNumbers iCurrIndex 0015 0016 End Sub 0017 0018 0019 Public Sub DoSomething 0020 0021 DO SOMETHING HERE - I 0022 0023 0024 0025 End Sub 0026
