Adding a button when a system form is opened

Question

Hiya, I'm trying to add a button to a system form in vb.net.  For some reason when i run my code the button will add to the form succesfully only when I have that form open in SAP.  If the form isn't open I get the error 'Form - Not found'  Can anyone show how to just add the button when the user opens the form rather than the button appearing from the form being already open. 
My code is like this:
Private Sub SBO_Application_ItemEvent(ByVal FormType As String, ByRef pVal As SAPbouiCOM.ItemEvent, ByRef BubbleEvent As Boolean) Handles SBO_Application.ItemEvent
        Select Case pVal.EventType
            Case SAPbouiCOM.BoEventTypes.et_FORM_LOAD
                If pVal.FormType = 152 And pVal.BeforeAction = False Then
                    If pVal.EventType = SAPbouiCOM.BoEventTypes.et_FORM_LOAD And Not pVal.BeforeAction Then
                        CreateMySimpleForm()
                    End If
                End If
        End Select
    End Sub
Public Sub CreateMySimpleForm()
        Dim oItem As SAPbouiCOM.Item
        Dim oButton As SAPbouiCOM.Button
        oForm = SBO_Application.Forms.GetForm("152", 0)
        oItem = oForm.Items.Add("51", SAPbouiCOM.BoFormItemTypes.it_BUTTON)
        oItem.Left = 88
        oItem.Width = 95
        oItem.Top = 558
        oItem.Height = 21
        oItem.FromPane = 24
        oItem.Visible = True
        oButton = oItem.Specific
        oButton.Caption = "View Document"
        oForm.Visible = True
        oForm.Update()
    End Sub
Any help would be appreciated

Answer 1

ok guys I've solved the problem.....this code adds a button to the Open Items List and its in vb.net
Private Sub SBO_Application_ItemEvent(ByVal FormUID As String, ByRef pVal As SAPbouiCOM.ItemEvent, ByRef BubbleEvent As Boolean) Handles SBO_Application.ItemEvent
        If ((pVal.FormType = 152 And pVal.EventType <> SAPbouiCOM.BoEventTypes.et_FORM_UNLOAD) And (pVal.Before_Action = True)) Then
            oForm = SBO_Application.Forms.GetFormByTypeAndCount(pVal.FormType, pVal.FormTypeCount)
            If ((pVal.EventType = SAPbouiCOM.BoEventTypes.et_FORM_LOAD) And (pVal.Before_Action = True)) Then
                Try
                    oItem = oForm.Items.Add("ViewDocBtn", SAPbouiCOM.BoFormItemTypes.it_BUTTON)
                    oItem.Left = 88
                    oItem.Width = 95
                    oItem.Top = 295
                    oItem.Height = 21
                    oItem.Visible = True
                    oButton = oItem.Specific
                    oButton.Caption = "View Document"
                    oForm.Visible = True
                    oForm.Update()
                Catch
                    SBO_Application.MessageBox("button not added")
                End Try
            End If
        End If
    End Sub