Public System_Renamed As clsSystem3
    Private objSEApp As SolidEdgeFramework.Application
    Private objSolidEdge As clsSolidEdge
    Private sLogFilePath As String

	
    Public Sub Main()
        Dim seApp As SolidEdgeFramework.Application
        Dim objDoc As Object
        Dim Fenster As Object
        Dim objTemp As Object


        On Error GoTo errhandler


            ' start needed class
            System_Renamed = New clsSystem3
            System_Renamed.setLogPath = sLogFilePath

            '###############################	
            'ParseCommandLineArgs()



        Clipboard.SetDataObject("E:\SAPWORK\A.PAR")

            objSolidEdge = New clsSolidEdge
            objSEApp = objSolidEdge.liefereSolidEdgeApplication


            objSEApp.DisplayAlerts = False
            objDoc = objSEApp.ActiveDocument
            objSEApp.DisplayAlerts = True

        Fenster = objSEApp.ActiveWindow

        Call System_Renamed.Pause(0.1, True)
        Call objSEApp.StartCommand(SolidEdgeConstants.DetailCommandConstants.DetailEditPaste)
        Call System_Renamed.Pause(0.1, True)

        Exit Sub


errhandler:
            Select Case Err.Number
                Case -2147467259
                    MsgBox("SolidEdge muss geöffnet sein", MsgBoxStyle.Critical)

                Case Else
                    MsgBox(Err.Description & ", " & Err.Number)

            End Select

    End Sub