การเรียกใช้งาน Function/Sub ของ new Form1 จาก old Form1

Class Form1

  Dim Data as integer

  Sub Cal()
     Data = 100
  End Sub
   
  Private Sub BtnLoadOthForm_Click
    Dim Frm1A as New Form1
    Dim Frm1B as New Form1
    Dim Frm1C as New Form1  
    Frm1A.Show
    Frm1B.Show
    Frm1C.Show
  End Sub
  
  Private Sub BtnMainCal_Click()
    Data = 100
    For each frm as Form in  Application.OpenForm
      if frm.Name = "Frm1A" then
          Frm1A.Cal()  ....................ตรงนี้เขียนแบบไหนให้ Frm1A เรียกใช้ Sub Cal() ได้ครับ
      End if
    Next
  End Sub
  
End Class