bu fonksiyona false veya true değerlerini göndererek iki ayrı fonksiyon yerine tek fonksiyon şeklinde yazabilirsiniz

Public Sub aktifOlsun(FormAdi As String)

yerine

Public Sub aktifOlsun(FormAdi As String, deger as Boolean)

fonksiyonu çağırırken

Call aktifOlsun("frm_kurul_ana_toplanti", değer)