dear programmers,

kali ini aku coba share gimana koding utk menutup semua form yg terbuka
pada aplikasi MDIForm kecuali MDIForm nya.

ok spt biasa silahkan copy paste kode berikut ini, dan spt biasa juga
ini adalah contoh yg paling sederhana.

Sub tutupForm()
    Dim frm As Form
    For Each frm In Forms
        If frm.Name <> Me.Name
            Unload frm
            set frm = Nothing
        End If
    Next
End Sub

salam
Lilis Suryani ArjaMaya


 
____________________________________________________________________________________
Sucker-punch spam with award-winning protection. 
Try the free Yahoo! Mail Beta.
http://advision.webevents.yahoo.com/mailbeta/features_spam.html

Kirim email ke