vb编程题

Private Sub Command1_Click()
Text1.Text = ""
Text1.SetFocus

End Sub

Private Sub Command2_Click()
If Text1.Text = "123456" Then
Picture1.Picture = LoadPicture("C:\Documents and Settings\Administrator\My Documents\My Pictures\样品.jpg")
Else
x = MsgBox("口令不正确,是否重新输入？", 4, "系统提示：")
End If

If x = 6 Then
Text1.Text = ""
Text1.SetFocus
End If

If x = 7 Then
End
End If

End Sub

Private Sub Command3_Click()
End
End Sub

你在把``文本框的`显示的密码``改成``“*”就可以了！

("C:\Documents and Settings\Administrator\My Documents\My Pictures\样品.jpg") 这个是我计算机上的 ``图片地址，你自己可以改一下`！