Mendeteksi Form Sedang Di Load Atau Tidak

PERSIAPAN			PROPERTIES
NO	CONTROL	PCS	NAME	VALUE	KETERANGAN
1.	CommandButton	2	Caption	Cek	Command1
				Load Form2	Command2

Masukkan souce ini ke dalam Form Private Sub Command1_Click() If FormLoadedByName("Form2") = True Then MsgBox "The Form2 is loaded" Else MsgBox "The Form2 is not loaded" End If End Sub Private Sub Command2_Click() If Command2.Caption = "Load Form2" Then Load Form2 Command2.Caption = "Unload Form2" Else Unload Form2 Command2.Caption = "Load Form2" End If End Sub

Masukkan souce ini ke dalam ModulePublic Function FormLoadedByName(FormName As String) As Boolean Dim i As Integer, fnamelc As String fnamelc = LCase$(FormName) FormLoadedByName = False For i = 0 To Forms.Count - 1 If LCase$(Forms(i).Name) = fnamelc Then FormLoadedByName = True Exit Function End If Next End Function