Public Sub UnloadAllForms()
Dim Form As Form
For Each Form In Forms
Unload Form
Set Form = Nothing
Next Form
End Sub
Bu prosedürü çalistirmak için en uygun yer ana formun unload event'idir
insanlar aşkın ne demek olduğunu bilmediklerinin farkında değiller .
Public Sub UnloadAllForms()
Dim Form As Form
For Each Form In Forms
Unload Form
Set Form = Nothing
Next Form
End Sub
Bu prosedürü çalistirmak için en uygun yer ana formun unload event'idir



0 yorum:
Yorum Gönder