Kod:
dim a, b as string 'değişkenleri atadık
If SysCmd(acSysCmdGetObjectState, acForm, "Form1") <> 0 Then '1 nolu formu kontrol ettik
MsgBox "Form açık." 'ekrana uyarı yazdık
a=1 'a değişkenine 1 değeri verdik
Else
MsgBox "Form kapalı." 'formun kapalı olduğu uyarısı
a=0
End If
aynı işi form2 için de yapınca b değişkeni de değer alacaktır. Sonra da
Kod:
if a=1 and b=1 then 'Yani her iki form da açıksa
'şunları şunları yap
if a=1 and b=0 then 'Yani sadece 1. form açıksa
'şunları şunları yap

Artık gerisini yazmaya gerek var mı?
Kolay gelsin