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