VB6.0 以前

    ' Form1 の新しいインスタンスを生成する
    Dim cForm1 As Form1
    Set cForm1 = New Form1

    ' Form1 を表示する
    Call cForm1.Show(vbModal)

    ' Form1 を閉じる旨を表示する
    Call MsgBox("Form1 を閉じます")

    ' Form1 を閉じる
    Call Unload(cForm1)

    ' 不要になった時点で参照を解放する (Terminate イベントを早めに起こす)
    Set cForm1 = Nothing

    ' このフォームを閉じる旨を表示する
    Call MsgBox("このフォームを閉じます")

    ' 自身のフォームを閉じる
    Call Unload(Me)