Passing value from desinger to form

i'd like to pass the value get from crsytal report designer to main form. Below is my code:
Code in module

VB Code:

Option Explicit
 
Public i As Integer

Code in Designer

VB Code:

Option Explicit
 
Private Sub Section4_Format(ByVal pFormattingInfo As Object)
    i = Field7.Value
End Sub

Code in main form

VB Code:

Private Sub Form_Load()
    Load form2 'crystal report form
    MsgBox i
    unload form2
End sub

I get 0 value, which should be 4 (records).
Anyone has idea what's wrong with my code?
Thanks!

Are you sure the function Section4_Format is being called?

yeah, you are right. It seems not being called. Do you know how to call it through the main form?
Thanks!

Is that your full code that you posted?

I tested again. With code below:
code in main form

VB Code:

Private Sub Form_Load()
    Load form2 'crystal report form
    'msgbox i ' i comment out this line
    unload form2
End sub

code in desiger

VB Code:

Option Explicit
 
Private Sub Section4_Format(ByVal pFormattingInfo As Object)
    i = Field7.Value
    msgbox i   ' i add this line
End Sub

I get the value from the report in msgbox. So that means function Section4_Format is being called.
The problem is how to let this function talk to main form, seems public variable in module doesn't work. Any idea?
Thanks!

I don't know. Theoretically, it should work.