« [VB6.0] ��ŵ�ư�ɻ� | �ᥤ�� | [VB6.0|Oracle] DB��³ »
2005年07月30日
[VB6.0] ���ե������Unload
'--- �ᥤ��Υե������Form_Unload�˽�Private Sub Form_Unload(Cancel As Integer)
Dim i As Integer
For i = Forms.Count - 1 To 0 Step -1
Unload Forms(i)
Next i
End Sub
2005 / 07 / 30