关于LOAD

Question

Private Sub Command1_Click()
  Load Str(Text1.Text)
End SubPrivate Sub Form_Load()
  Text1.Text = "form2"
End Sub
以上代码我是这样想的，我建了一个form2的窗体，我想在form1的两个控件中点一下一步command1就load form2 ,form2.show.
这种方法为什么不行呢！在只是一个实例，我想做一个简单的例子，因为我要做一个更复杂的例子，
如要这样实现，应怎么做呢！谢谢大家

Answer 1

以上代码我是这样想的，我建了一个form2的窗体，我想在form1的两个控件中点一下一步command1就load form2 ,form2.show. 
这种方法为什么不行呢！在只是一个实例，我想做一个简单的例子，因为我要做一个更复杂的例子， 
如要这样实现，应怎么做呢！谢谢大家
一头雾水 晕.........

Answer 2

Private Sub Command1_Click()
Unload Me   '卸载form1
Form2.Show  '显示form2
End Sub

Answer 3

With Me
                    For i = 1 To rs.recordcount - 1
                        Load .mnuDExample(i)                        .mnuDExample(i).Caption = rs.Fields("title_ch").Value
                        .mnuDExample(i).Tag = rs.Fields("product_id").Value                        rs.movenext
                    Next
end with
'mnuDExample是个子菜单,初始建立时,索引为0