界面有textbox1，textbox2和Button1怎么建立计算机账户~！！求解~！！

'调用CMD：
Private Sub a() Handles Button1.Click
dim SYH As string = """"
shell("cmd.exe /c net user " & SYH & TextBox1.Text.ToString & SYH & " " & SYH & _
TextBox2.Text & SYH & " /add")
End Sub