求翻译！C语言翻译成VB

lichangjun2012

哪位大侠帮个忙，把下面这段代码用VB语言写一下，拜托！

或者直接给我一个窗体间传递数据的方法！！！

1. private void button1_Click(object sender, EventArgs e)
   
2.         {
   
3.             this.DialogResult = DialogResult.OK;
   
4.             //创建一个Info对象
   
5.             User info = new User();
   
6.             //将数据保存到Info对象中
   
7.             info.UserName = textBox3.Text;
   
8.             info.PassWord = textBox4.Text;
   
9.             //问题：如何将info对象中的信息传递给主窗口
   
10.             //方案一：将对象info保存到子窗口的Tag属性中,则从父窗口中可以通过实例化的子窗口对象拿到info对象信息
    
11.             //this.Tag = info;
    
12.             //方案二：将对象info保存到一个静态变量中
    
13.             //第三方.user = info;
    
14.             //方案三：将对象info保存到父窗口的Tag属性中
    
15.             MainFrm mainfrm = this.Owner as MainFrm;
    
16.             mainfrm.Tag = info;
    
17.         }

复制代码

1. private void 添加用户ToolStripMenuItem_Click(object sender, EventArgs e)
   
2.         {
   
3.             FrmUser userDialog = new FrmUser();
   
4.             if (userDialog.ShowDialog() == DialogResult.OK)
   
5.             //if (userDialog.ShowDialog(this) == DialogResult.OK)
   
6.             {
   
7.                 //方案一：通过子窗口的Tag属性进行窗体间的数据传递
   
8.                 User user=userDialog.Tag as User;
   
9.                 //方案二：借助第三方的一个静态属性进行数据传递
   
10.                 User user = 第三方.user;
    
11.                 //方案三：通过父窗口的Tag属性进行窗体间的数据传递,注意传递一个this参数给userDialog.ShowDialog()
    
12.                 User user = this.Tag as User;
    
13.                 MessageBox.Show("用户名："+user.UserName+"\r\n密码：" + user.PassWord);
    
14.             }
    
15.         }

复制代码

zpy2

User info = new User();
            //将数据保存到Info对象
vb的对象是
class user

public username
end.class