Xml form screen scraper

Question

Hello,
I have created a form with screen scrapers. Now I want to load it when I open the form of purchase orders through the creation of an XML file. Where mistake? Thanks
Dim creationPackage As SAPbouiCOM.FormCreationParams
    Dim oItem As SAPbouiCOM.Item
    Dim oButton As SAPbouiCOM.Button
    Dim oStat As SAPbouiCOM.StaticText
    Dim oCompany As SAPbobsCOM.Company
    Dim lRetCode As Integer
    Dim msgbox As SAPbobsCOM.Message
    Dim oapplication As SAPbouiCOM.FormCreationParams
Private Sub B1_Application_ItemEvent(ByVal FormUID As String, ByRef pVal As SAPbouiCOM.ItemEvent, ByRef BubbleEvent As Boolean) Handles SBO_Application.ItemEvent
        If (pVal.MenuUID = "142") And (pVal.BeforeAction = False) Then
        End If
        LoadXMLForm("parametri.srf")
        If Not (oForm Is Nothing) Then
            creationPackage = SBO_Application.CreateObject(SAPbouiCOM.BoCreatableObjectType.cot_FormCreationParams)
            creationPackage.UniqueID = "BS_F_40"
            creationPackage.FormType = "-1"
            creationPackage.BorderStyle = SAPbouiCOM.BoFormBorderStyle.fbs_Sizable
            creationPackage.XmlData = "form_mio.xml"
            oForm = SBO_Application.Forms.AddEx(creationPackage)
            oForm.AutoManaged = True
            oForm.SupportedModes = SAPbouiCOM.BoAutoFormMode.afm_All
            oForm.Mode = SAPbouiCOM.BoFormMode.fm_OK_MODE
            oForm.Visible = True
            ' Dim sfile As System.IO.FileStream
            LoadXMLForm("parametri.srf")
        End If
        ' Dim sfile As System.IO.FileStream
    End Sub
    Private Function LoadXMLForm(ByVal sFile As String) As Boolean
        Try
            Dim oXmlDoc As Xml.XmlDocument
            oXmlDoc = New Xml.XmlDocument
            Dim oCreationParams As SAPbouiCOM.FormCreationParams
            Dim s As String
            Try
                s = "C:\Documents and Settings\neos\Desktop\screen painter\primo_form.srf"
                oXMLDoc = New Xml.XmlDocument
                oXMLDoc.load(s)
                oCreationParams = oapplication.CreateObject(SAPbouiCOM.BoCreatableObjectType.cot_FormCreationParams)
                oCreationParams.XmlData = "form_mio.xml"
                oApplication.Forms.AddEx(oCreationParams)
                Return True
            Catch e As Exception
                oApplication.MessageBox("Error: " & e.Message)
                Return False
            End Try
            System.Runtime.InteropServices.Marshal.ReleaseComObject(oCreationParams)
            System.Runtime.InteropServices.Marshal.ReleaseComObject(oXMLDoc)
        Catch ex As Exception
            oApplication.MessageBox("Error: " & ex.Message)
        End Try
        GC.Collect()
    End Function

Answer 1

Hi Lorenzo,
Do one thing plz copy all the data from sample code and change the path and file name whatever you are using in your pgm only..
if after all you get the error write the code..
Kind Regards
Yogesh