01.
Class
Form1
02.
03.
Dim
Data as integer
04.
05.
Sub
Cal()
06.
Data = 100
07.
End
Sub
08.
09.
Private
Sub
BtnLoadOthForm_Click
10.
Dim
Frm1A as
New
Form1
11.
Dim
Frm1B as
New
Form1
12.
Dim
Frm1C as
New
Form1
13.
Frm1A.Show
14.
Frm1B.Show
15.
Frm1C.Show
16.
End
Sub
17.
18.
Private
Sub
BtnMainCal_Click()
19.
Data = 100
20.
For
each frm as Form in Application.OpenForm
21.
if frm.Name =
"Frm1A"
then
22.
Frm1A.Cal() ....................ตรงนี้เขียนแบบไหนให้ Frm1A เรียกใช้
Sub
Cal() ได้ครับ
23.
End
if
24.
Next
25.
End
Sub
26.
27.
End
Class