処理をキャンセルしフォームを閉じるには？ (ID:112801)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 初めて投稿させてもらいます。超初心者ですので色々宜しくお願い致します。 今やりたいこととしては、親フォームにボタンを作成し、そのボタンが押されたら別フォームを呼び出し、アニメーションを起動させるといったものです。そのアニメーションを途中キャンセルした際に親フォームを残しつつ自分のフォームを閉じるといったことをしたいのですが…。キャンセルボタンを押した時にメッセージボックスを出しそれでOKの返答が返ってきたらフォームを閉じるという作業を行っています。 Dim ret As Integer Private Sub CancelButton_Click() ret = MsgBox("本当によろしいですか？", vbOKCancel + vbQuestion + vbSystemModal, "キャンセルします") If ret = vbOK Then Unload Me End If End Sub Private Sub Form_Load() Dim st As Long Dialog1.Show 'アニメーションファイルを表示する '表示ファイルの指定及びオープン Animation1.Open "filepath" '再生開始 Animation1.Play '10秒間表示 st = Timer Do While Timer - st < 10 DoEvents Loop '再生を停止 Animation1.Stop ret = MsgBox("完了しました", vbOKOnly, "") If ret = vbOK Then Unload Me End If End Sub Private Sub Form_unLoad(Cancel As Integer) set dialog1 = nothing End Sub 結果としては一度フォームは閉じるのですが再びアニメーションが起動し永遠に続く感じです。 オブジェクトの解放等色々やってみましたが解決策がみつからず困ってます。 なにかいい方法はないでしょうか？