'В вызываемой форме переделываем конструктор класса
#Region " Windows Form Designer generated code "
   Dim mdiForm1 As frmMain ' Это имя главной формы MDI 
   Public Sub New(ByVal sender As Form)
      MyBase.New()
      If TypeOf sender Is frmMain Then mdiForm1 = sender

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      If Not mdiForm1 Is Nothing Then
         mdiForm1.i =  100  ' в главной MDI форме объявлена переменная уровня формы Public i As Long
      End If
   End Sub

Dim f1 As New Form1(Me)
f1.MdiParent = Me
f1.Show()