单调的登陆器代码，我错在那里

我写了一个登陆界面
帐号：
密码：
就怎么简单。
我想让别人输入。帐号：321
                密码：123
然后点确定。就在别人的电脑D盘建一个文件夹
代码如下：
Private Sub Command1_Click(Index As Integer)
If Trim(Text1.Text) = "321" And Trim(Text2.Text) = "123" Then
MkDir ("D:\shen")
End If
End Sub
各位高手指点指点
提示：编译错误，未找到方法或数据成员。

搜索更多相关主题的帖子: 代码 帐号 登陆 Sub

'創建txt
Private Sub Command1_Click()
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set a = fs.CreateTextFile("c:\testfile.txt", True)
    a.WriteLine ("This is a test.")
    a.Close
End Sub
'創建文件夾
Private Sub Command2_Click()
    MkDir "D:\MYDIR"
End Sub

Private Sub Command2_Click()
    MkDir "D:\MYDIR"
End Sub
就没意义了。我要的是帐号和密码必须是我内定的。
帐号密码正确后，麻烦就执行 MkDir ("D:\shen")
然后不是另外创建一个控件Command2

Command1
Text1.Text
Text2.Text
这些控件,你窗体上有没有?

回复 1# zyal 的帖子

Private Sub Command1_Click()
If Trim(Text1.Text) = "321" And Trim(Text2.Text) = "123" Then
MkDir ("D:\1234")
End If
End Sub

谢谢了。问题完美解决

你的頭什么做的﹐不知道變通

登录器。
您真能概括技术问题。