Option Explicit

Private WithEvents SBO_Application As SAPbouiCOM.Application
Private oCompany As SAPbobsCOM.Company
Private oForm As SAPbouiCOM.Form
Private oMatrix As SAPbouiCOM.Matrix
Private oColumns As SAPbouiCOM.Columns
Private oColumn As SAPbouiCOM.Column
Private oItem As SAPbouiCOM.Item
Private m_item As SAPbouiCOM.Item
Private m_item2 As SAPbouiCOM.Item
Private count As Long
Private oEditTextA As SAPbouiCOM.EditText
Private oEditTextB As SAPbouiCOM.EditText
Private oEditTextC As SAPbouiCOM.EditText
Private oComboBoxA As SAPbouiCOM.ComboBox
Private oRecordSet As SAPbobsCOM.Recordset
Public oFilters As SAPbouiCOM.EventFilters
Private oFilter As SAPbouiCOM.EventFilter

Private Sub SetApplication()
    Dim SboGuiApi           As SAPbouiCOM.SboGuiApi
    Dim sConnectionString   As String
    Set SboGuiApi = New SAPbouiCOM.SboGuiApi
    sConnectionString = Command
    SboGuiApi.Connect sConnectionString
    Set SBO_Application = SboGuiApi.GetApplication()
End Sub

Private Function SetConnectionContext() As Long
    Dim sCookie As String
    Dim sConnectionContext As String
    Dim lRetCode As Long
    Set oCompany = New SAPbobsCOM.Company
    sCookie = oCompany.GetContextCookie
    sConnectionContext = SBO_Application.Company.GetConnectionContext(sCookie)
    If oCompany.Connected = True Then
        oCompany.Disconnect
    End If
    SetConnectionContext = oCompany.SetSboLoginContext(sConnectionContext)
End Function

Private Function ConnectToCompany() As Long
    ConnectToCompany = oCompany.Connect
End Function

Private Sub Class_Initialize()
    SetApplication
    SetFilters
    If Not SetConnectionContext = 0 Then
        SBO_Application.MessageBox "Failed setting a connection to DI API"
        End
    End If
    If Not ConnectToCompany = 0 Then
        SBO_Application.MessageBox "Failed connecting to the company's Data Base"
        End
    End If
End Sub

Private Sub SBO_Application_AppEvent(ByVal EventType As SAPbouiCOM.BoAppEventTypes)
    Select Case EventType
            Case aet_ShutDown:
            End               
    End Select
End Sub

Private Sub SBO_Application_ItemEvent(ByVal FormUID As String, pVal As SAPbouiCOM.IItemEvent, BubbleEvent As Boolean)
    If pVal.EventType = et_FORM_LOAD Then
        If pVal.FormType = 392 Then
            Set oForm = SBO_Application.Forms(FormUID)
            Set m_item = oForm.Items.Add("item_1", it_BUTTON)
            m_item.Specific.Caption = "test"
            m_item.Top = oForm.Items("82").Top + 15
            m_item.Left = oForm.Items("82").Left
            m_item.Width = 80
        End If
    End If
    If pVal.FormType <> 0 And pVal.Before_Action = False Then
        If pVal.FormType = 392 Then
            If pVal.EventType = et_ITEM_PRESSED Then
                If pVal.ItemUID = "item_1" Then
                    SBO_Application.MessageBox "test"
                End If
            End If
        End If
    End If
End Sub

Private Sub SetFilters()
    Set oFilters = New SAPbouiCOM.EventFilters
    Set oFilter = oFilters.Add(et_ITEM_PRESSED)
    Set oFilter = oFilters.Add(et_FORM_LOAD)
    oFilter.Add 392
    SBO_Application.SetFilter oFilters
End Sub