DeleteModule Example for Visual Basic

Private Sub Test2Menu_Click()
    Dim nRet As Integer
    
    LEADDICOM1.EnableMethodErrors = False
    'move to the first module in the DataSet and delete it
    LEADDICOM1.FindIndexModule 0
    nRet = LEADDICOM1.DeleteModule(LEADDICOM1.CurrentModule.Module)
    If (nRet <> 0) Then
        MsgBox "Error Deleting Module!"
    End If
    LEADDICOM1.EnableMethodErrors = True
End Sub