コンボボックスのClickイベントでUnloadステートメントを実行するには？

解決

モエカナ 2005-08-01 22:10:50 No: 91202

コンボボックスのClickイベント発生時にLoad機能で自動生成した
コントロールをUnloadしたいのですが、
"現在アンロードできません。(Error365)"のエラーになります。
ヘルプにはコンボボックスのClickイベントではUnloadステートメント
は使用出来ないみたいな事が書かれているのですが、VB6の仕様上無理
なのでしょうか？
どなたか良い方法があれば教えて下さい。
お願いします。

魔界の仮面弁士 2005-08-01 23:22:40 No: 91203

まずは、画面仕様の方を見直すべきかと思いますよ。
無理矢理対応させるなら、こんな感じにしてみるとか。

Private Sub Combo1_Click()
Timer1.Interval = 60
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Unload Me
End Sub

モエカナ 2005-08-02 01:45:22 No: 91204

魔界の仮面弁士様、返信ありがとうございます。
アドバイスを参考にして画面仕様の変更も含めて見直してみます。