LineRemove example for Visual Basic

    Dim nRet As Integer
    'Line Remove
    'This examples removes vertical lines that are at least 200 pixels in length
    'and no more than 5 pixels in width
    'The lines can have gaps up to two pixels in length
    'The LineRemove Event is used to display information about each line removed
    nRet = LEAD1.LineRemove(LINE_USE_GAP, 200, 5, 7, 10, 2, 0, LINEREMOVE_HORIZONTAL)

Private Sub LEAD1_LineRemove(ByVal nStartRow As Long, ByVal nStartCol As Long, ByVal nLength As Long, ByVal hRgnLine As Stdole.OLE_HANDLE)
    Debug.Print "Line at " & CStr(nStartRow) & "," & CStr(nStartCol) & " Length=" & CStr(nLength)
End Sub