Form not getting displayed in sap b one

Question

I have created a form using screen painter.But it is not getting displayed in sap b one.When I debugged the form it doesnot show any error.

Answer 1

Option Strict Off
Option Explicit On
Friend Class frmEmployee
    Private WithEvents SBO_Application As SAPbouiCOM.Application
    Private objForm As SAPbouiCOM.Form
    Public Sub New()
        MyBase.New()
        '// set SBO_Application with an initialized application object
        SetApplication()
        LoadFromXML("frmEmployee.xml")
        'LoadFromXML("MySimpleFormxml")
        '// Get the added form object by using the form's UID
        objForm = SBO_Application.Forms.Item("F_4")
        '// Show the loaded Form
        objForm.Visible = True
        '// Saving the Form as an XML file
        '// although it already exist as an XML file
        '// it is good for practice
        'SaveAsXML(objForm)
    End Sub
    Private Sub SetApplication()
        '// Use an SboGuiApi object to establish connection
        '// with the SAP Business One application and return an
        '// initialized appliction object
        Dim SboGuiApi As SAPbouiCOM.SboGuiApi
        Dim sConnectionString As String
        SboGuiApi = New SAPbouiCOM.SboGuiApi
        '// by following the steps specified above, the following
        '// statment should be suficient for either development or run mode
        sConnectionString = Environment.GetCommandLineArgs.GetValue(1)
        '// connect to a running SBO Application
        SboGuiApi.Connect(sConnectionString)
        '// get an initialized application object
        SBO_Application = SboGuiApi.GetApplication()
    End Sub
    Private Sub LoadFromXML(ByRef FileName As String)
        Dim oXmlDoc As Xml.XmlDocument
        oXmlDoc = New Xml.XmlDocument
        '// load the content of the XML File
        Dim sPath As String
        'sPath = IO.Directory.GetParent(Application.StartupPath).ToString
        sPath = "D:\Final\Forms"
        oXmlDoc.Load(sPath & "\" & FileName)
        '// load the form to the SBO application in one batch
        SBO_Application.LoadBatchActions(oXmlDoc.InnerXml)
    End Sub
    Private Sub SaveAsXML(ByRef Form As SAPbouiCOM.Form)
        Dim oXmlDoc As Xml.XmlDocument
        Dim sXmlString As String
        oXmlDoc = New Xml.XmlDocument
        '// get the form as an XML string
        sXmlString = Form.GetAsXML
        '// load the form's XML string to the
        '// XML document object
        oXmlDoc.LoadXml(sXmlString)
        Dim sPath As String
        'sPath = IO.Directory.GetParent(Application.StartupPath).ToString
        sPath = "D:\Final\Forms"
        '// save the XML Document
        oXmlDoc.Save((sPath & "\frmEmployee1.xml"))
    End Sub
End Class