Developp with multiple class and module

Question

Hi all,
I'm a beginner with developping Add-on with SAP. All the example show a "SubMain" which call a unique class where all the code is. I'd like to simplify my code in creating separate module and i have problem with the SBO_Application.
Here is my code, when I declare Sbo_Application in a general module, the Sub_connect is OK but not the Handles of the SBO_Application_AppEvent. If I declare it like this code. the sub_connect is wrong.
Have you an idea?
Sorry for my bad English.
Thanks in advance
Sylvie
Module SubMain
    Public Sub Main()
        Dim obj_Easypay As New Class_Easypay    ' execute the add-on code
        System.Windows.Forms.Application.Run()  ' Starting the Application
    End Sub
End Module
Friend Class Class_Easypay
    Public WithEvents SBO_Application As SAPbouiCOM.Application
    Public Sub New()
        MyBase.New()
        'Connection to SAP Business one application
        Sub_Connect_SBO()
    End Sub
    Private Sub SBO_Application_AppEvent(ByVal EventType As SAPbouiCOM.BoAppEventTypes) Handles SBO_Application.AppEvent
         SBO_Application.Messagebox(" ")
    end sub
end class

Answer 1

Hello,
I have readed that your project has been stopped but for logging i am answering your question:
You should create a global variable for holding the application object tp manupulate with outside your class.
Module SubMain
  Public g_SBO_Application As SAPbouiCOM.Application ' this is for all modules, without events
  Public Sub Main()
  Dim obj_Easypay As New Class_Easypay ' execute the add-on code
  System.Windows.Forms.Application.Run() ' Starting the Application
  End Sub
End Module
' Do not use Friend class -  memory weaks
Friend Class Class_Easypay
Private WithEvents SBO_Application As SAPbouiCOM.Application ' local you can use only inside form the class
Public Sub New()
  MyBase.New()
  'Connection to SAP Business one application
  Sub_Connect_SBO()
   g_SBO_Application = SBO_Applicatio
End Sub
'Use Private
Private Sub sbo_application_AppEvent (ByVal EventType As SAPbouiCOM.BoAppEventTypes) Handles sbo_application.AppEvent      
  Test ()' or MyModule1.Test()  
end sub
end class
Module MyModule1
  Sub Test
    g_SBO_Application.statusbar.settext("TEST")
  End sub
End Module
Module MyModule
  Sub MyApp_EventHandler(sbo_application_AppEvent)
    g_SBO_Application.statusbar.settext("TEST")
  End sub
End Module
Regards,
János