Unload Semua Form

PERSIAPAN			PROPERTIES
NO	CONTROL	PCS	NAME	VALUE	KETERANGAN
1.	CommandButton	1	Caption	Unload All	Command1

Masukkan souce ini ke dalam Form Private Sub Command1_Click() Dim Form As Form For Each Form In Forms Unload Form Set Form = Nothing Next Form End Sub