Problem ragarding load xml(embedded) file

Question

oGlobalMain is the object of global class where every object is created and function is defined
SBO_Application is declared as Public WithEvents SBO_Application As SAPbouiCOM.Application
#Region "Load as XML"
Public Sub LoadAsXml(ByVal FileName As String, Optional ByVal FileType As ResourceType = ResourceType.Content)
Dim oXmlDoc As Xml.XmlDocument
Dim oXmlStream As System.IO.Stream
oXmlDoc = New Xml.XmlDocument
Try
If FileType = ResourceType.Content Then
oXmlDoc.Load(FileName)
Else
oXmlStream = System.Reflection.Assembly.LoadFrom(System.Windows.Forms.Application.ExecutablePath).GetManifestResourceStream(GetType(modStartUp).Namespace & "." & FileName)
oXmlDoc.Load(oXmlStream)
End If
oGlobalMain.SBO_Application.LoadBatchActions(oXmlDoc.InnerXml)
Catch ex As Exception
oGlobalMain.SBO_Application.MessageBox(ex.Message)
End Try
End Sub
#End Region
please send me some suggestion, I would be grateful to you.
Thanks in advance
regards
Nandini

Answer 1

Hi..
use this code
Form load()
use
Me.CreateForm()
Sub CreateForm()
        Try
            SAPXML("AAAAAAA.xml")
            OM_Form = app.Forms.Item("FormID--Yours")
            Catch ex As Exception
            OM_Form = app.Forms.Item("FormID--Yours")
            OM_Form.Select()
            Exit Sub
        End Try
    End Sub
Sub SAPXML(ByVal path As String)
        Try
            Dim xmldoc As New MSXML2.DOMDocument
            Dim Streaming As System.IO.Stream = Assembly.GetExecutingAssembly().GetManifestResourceStream("Your Folder." + path)
            Dim StreamRead As New System.IO.StreamReader(Streaming, True)
            xmldoc.loadXML(StreamRead.ReadToEnd)
            StreamRead.Close()
            app.LoadBatchActions(xmldoc.xml)
        Catch ex As Exception
            app.MessageBox(ex.Message)
        End Try
    End Sub
Regards,
Siva