#If STRONG_TYPE Then
    Dim objApp As SolidEdgeFramework.Application
    Dim objDoc As SolidEdgeDraft.DraftDocument
    Dim objSheets As SolidEdgeDraft.Sheets
    Dim objSheet As SolidEdgeDraft.Sheet
    Dim objDrawingViews As SolidEdgeDraft.DrawingViews
    Dim objDrawingView As SolidEdgeDraft.DrawingView
#Else
    Dim objApp As Object
    Dim objDoc As Object
    Dim objSheets As Object
    Dim objSheet As Object
    Dim objDrawingViews As Object
    Dim objDrawingView As Object
#End If

If Startup(objApp, objDoc) True Then
    Exit Sub
End If

objDoc.Close

Set objDoc = objApp.Documents.Open(NameOfDocToOpen)

Set objSheet = objDoc.ActiveSheet

For Each objSheet In objDoc.Sheets

    Set objDrawingViews = objSheet.DrawingViews

    For Each objDrawingView In objDrawingViews

        If (objDrawingView.DrawingViewType = igDetailView) Then

            Call objDrawingView.ConvertToIndependentDetailView

            If (objDrawingView.DrawingViewType = igDetailView) Then
                HandleError "Conversion Failed!"
            End If

        End If
    Next