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 strItemId As String
        Dim strItemRev As String
        Dim strFileName As String
        Dim strRevisionRule As String
        Dim strFolderName As String
        Dim strItemIdToBeAdded As String
        Dim strItemRevToBeAdded As String
        Dim strFileNameToBeAdded 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
                strItemId = "012186"
                strItemRev = "A"
                strFileName = "012186.asm"
                strRevisionRule = "Latest Working"
                strFolderName = ""
                If objStructureEditor.Open(strItemId, strItemRev, strFileName, strRevisionRule, strFolderName) = 0 Then
                    strItemIdToBeAdded = "011854"
                    strItemRevToBeAdded = "A"
                    strFileNameToBeAdded = "011854.par"
                    objStructureEditor.AddNewItem(strItemIdToBeAdded, strItemRevToBeAdded, strFileNameToBeAdded)
                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