VB6でのWithEvents

Question

ＶＢ６でPictureBoxを動的生成していますがイベント処理ができません。
ちなみにCommandButtonはできています。
ソースプログラムは以下のようにしています。
何か問題がありますでしょうか？
アドバイスお願い致します。


Private WithEvents PB As PictureBox
  ：　　　：　　　：
Private Sub PB_Click()
  　このイベントが発生しません．．．
End Sub

  ：　　　：　　　：


Private Sub Form_Load()
Set addPB = Controls.Add("VB.PIctureBox", "PB", Form1)
With addPB
    .Move 0, 0, 2000, 2000
    .Visible = True
End With

End Sub

Answer 1

変数宣言がPBで、初期化してるのがaddPBだからじゃないですか？
Set PB = Contorls～
にすれば動くはずです

Answer 2

あと　with addPB も with PB にね。

Answer 3

tatuya様

O_Masa様と合わせた対応で上手くいきました。
有難うございました。

Answer 4

O_Masa様

tatuya様と合わせた対応で上手くいきました。
有難うございました。

Answer 5

フォーラムオペレーターの高橋春樹です。 

tatuyaさん、O_Masaさん、こんにちは。
ご投稿ありがとうございました。

すけさんさん初めまして。
MSDNフォーラムのご投稿ありがとうございます。

問題が解決したようで、よかったです。
今回、tatuyaさん、O_Masaさんのアドバイスが、問題解決に繋がったようなので、
皆さんの投稿に、回答マークを付けさせてもらいました。

次回でよいのですが、問題が解決したときは、すけさんさん直々に、参考になった投稿に対して、回答マークを付けて頂ければと思います。
フォーラムの仕組みが分かりづらくてすみません・・・

今後ともMSDNフォーラムをよろしくお願いします(^_^)

---

マイクロソフト株式会社 フォーラム オペレーター 高橋春樹