Imports System.IO
Imports System.Runtime.InteropServices
Module Example
    <STAThread()> _
    Sub Main()
        Dim objApplication As StructureEditor.Application = Nothing
        Dim objStructureEditor As StructureEditor.SEECStructureEditor = Nothing
        Dim strUserName As String
        Dim strPassword As String
        Dim strGroup As String
        Dim strRole As String
        Dim strURL As String
        Dim strPrntItemId As String
        Dim strPrntItemRev As String
        Dim strPrntFileName As String
        Dim strRevisionRule As String
        Dim strFolderName As String
        Dim strItemIdToBeRemoved As String
        Dim strItemRevToBeRemoved As String
        Dim strFileNameToBeRemoved As String
        Try
            OleMessageFilter.Register()
            ' Start structure editor application
            objApplication = Activator.CreateInstance(Type.GetTypeFromProgID("StructureEditor.Application"))
            objStructureEditor = objApplication.SEECStructureEditor
            objApplication.Visible = True
            strUserName = "Username"
            strPassword = ""
            strGroup = ""
            strRole = ""
            strURL = "http://Servername:8085/tc"
            If objStructureEditor.ValidateLogin(strUserName, strPassword, strGroup, strRole, strURL) = 0 Then
                strPrntItemId = "012186"
                strPrntItemRev = "A"
                strPrntFileName = "012186.asm"
                strRevisionRule = "Latest Working"
                strFolderName = ""
                If objStructureEditor.Open(strPrntItemId, strPrntItemRev, strPrntFileName, strRevisionRule, strFolderName) = 0 Then
                    strItemIdToBeRemoved = "011854"
                    strItemRevToBeRemoved = "A"
                    strFileNameToBeRemoved = "011854.par"
                    objStructureEditor.RemoveItem(strPrntItemId, _
                                                  strPrntItemRev, _
                                                  strPrntFileName, _
                                                  strItemIdToBeRemoved, _
                                                  strItemRevToBeRemoved, _
                                                  strFileNameToBeRemoved)
                End If
            End If
        Catch ex As Exception
            Console.WriteLine(ex.Message)
        Finally
            If Not objApplication Is Nothing Then
                ' Kill the instance of structure editor created
                objApplication.Quit()
            End If
            OleMessageFilter.Revoke()
        End Try
    End Sub
End Module