フォームの落とし穴

言われてみれば、「あ～」って感じ。
VBのフォームは『グローバル変数』
つまり、

Form1.Show

って、どこでも書ける。
この所為で、落とし穴に嵌った。
実は、VBのUnloadって奴。メモリから全てが消えてしまうと
思っていたのだが、どうもそうではないらしい。
Formsコレクションから消えるだけで、インスタンスが初期化されるわけではない。
例えば、こんなフォームがあって、

// Form1内
Private m_strValue As String
Public Property Let Item (value As String)
　m_strValue = value
End Property
Private Sub Form_Load()
　MsgBox m_strValue
End Sub

Form1.Item = "黒幕"
Form1.Show
Unload Form1
Form1.Show

ってすると、メッセージボックスが２回表示され、２回とも「黒幕」と表示される。

じゃ、どうしたらいいのん？

Form1.Item = "黒幕"
Form1.Show
Set Form1 = New Form1
' こっちでもOK
' Set Form1 = Nothing
Form1.Show

まぁ、ちゃんと、インスタンス化しようってことです。
ちなみに、俺は、Showする前にNewするやり方が好き

Set Form1 = New Form1
Form1.Show