コアサーバーV2プランご契約でドメイン更新費用が永久無料

« [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