改用DELPHI吧!或者配副眼镜!
省得总走错门!

解决方案 »

  1.   


          Dim frmtest As Form1
           Set frmtest = New Form1
           frmtest.Show
      以上方法只是打开一个已存在的FORM1 ,有没有用ADD方法,创建窗体??? 
      

  2.   

    在DELPHI中,实现以上方法很简单,请看下面代码:procedure TForm1.Button1Click(Sender: TObject);
    var DD :TFORM ;
        ss :Tbutton;
    begin
        DD := TFORM.Create(SELF);
        DD.CAPTION := 'MYFORM';
        DD.SHOW;
        ss := tbutton.Create(self);
        ss.Parent := dd;
        ss.Caption := 'mybutton';
        ss.Left := 100;
        ss.Top := 100;
        ss.OnClick  := Button2Click;
    end;
    procedure TForm1.Button2Click(Sender: TObject);
    begin
      showmessage('mymessage')
    end;   不知,VB 如何实现,请打下们指教。