很简单的一个vb小程序，高手快来啊！

我写了一个关于加密程序的vb小程序，但有些问题没处理好，请高手帮我完成一下。
程序只有一个窗体：一个密码输入框（名称：cspw），一个确定按钮，外加一退出按钮。
我要实现以下效果：
如果密码框输入z1z1z1z1则
弹出对话框“密码正确”，并且点击确定运行"C:\program files\CS1.6\cstrike.exe"，同时退出程序。
如果密码输入错误，则
在密码框下方显示“密码错误”，同时清空密码框，重新输入。
还有一个 就是输入密码后，按回车也能实现 确定 的效果。
高手快帮忙啊！

再请教一个问题，怎么在vb程序里显示时间？
可以再增加一些要用的文本框等东西
我是说 如果密码输入错误，则 在密码框下方显示“密码错误”，不要弹出窗口

简单

下面是全部代码：
'在form1上添加一个CommandButton，命名为Command1
'把文本框的PasswordChar属性设为*

Option Explicit

Private Sub Command1_Click()
If cspw.Text = "z1z1z1z1" Then
Shell "C:\program files\CS1.6\cstrike.exe", vbNormalFocus
Unload Me
Else
MsgBox "密码错误！", vbCritical, "提示"
cspw.Text = ""
cspw.SetFocus
End If
End Sub

Private Sub cspw_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
Command1_Click
End If
End Sub

在VB程序中显示时间：
label1.caption = time$

补充：
那你就再添加一个Label控件，在cspw下面，把msgbox那一句替换成Label1.Caption = "密码错误！"就可以了

窗体加一个文本框。
if text1.text="z1z1z1z1" then
msgbox "密码正确"
shell "C:\program files\CS1.6\cstrike.exe"
unload me
else
msgbox "密码错误"