Passing value from desinger to form

[claire99]

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

Option Explicit
 
Public i As Integer

Code in Designer

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

Code in main form

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!

[The Hobo]

Are you sure the function Section4_Format is being called?

[claire99]

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

[The Hobo]

Is that your full code that you posted?

[claire99]

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

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

code in desiger

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!

[The Hobo]

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