Lines Matching refs:lngStartLine
489 Dim lngStartLine As Long variable
494 lngStartLine = 1
508 Do While vbcm.Find(strFind, lngStartLine, _
512 If InStr(1, vbcm.Lines(lngStartLine, 1), "VBFindLines") <> 0 Then
518 If InStr(1, vbcm.Lines(lngStartLine, 1), "New") <> 0 Then
519 strProc = vbcm.ProcOfLine(lngStartLine, lngType)
524 strProc = vbcm.ProcOfLine(lngStartLine, lngType)
528 VBFindLines = VBFindLines & "[" & strProc & " ( ) - " & lngStartLine & " ]" & _
529 vbLf & vbcm.Lines(lngStartLine, 1) & vbLf
531 strProc = vbcm.Lines(lngStartLine, 1)
535 If InStr(1, vbcm.Lines(lngStartLine, 1), "Declare Function") <> 0 Then
536 …ines = VBFindLines & "[" & RID_STR_COMMON_DEC_TO_EXTERNAL_LIBRARY & " - " & lngStartLine & " ]" & _
540 " - " & lngStartLine & " ]" & vbLf
547 lngStartLine = lngEndLine + 1
552 If lngStartLine >= lngEndLine Then Exit Function