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!