Private Sub Form_Load()
Dim user As String
user = InputBox("请输入用户名", "登陆")
Dim username(3)
username(0) = "xiaohua"
username(1) = "xiaoli"
username(2) = "xiaozhang"
username(3) = "xiaozhao"
Dim flag As Boolean
flag = False
Dim i As Integer
For i = 0 To 3
    If user = username(i) Then
     flag = True
     End If
Next i
    If flag = False Then
    MsgBox ("用户名错误，系统将自动关闭！")
    End
End If
End Sub


Private Sub Picture1_Paint()
Picture1.Print "you are wellcom!"
End Sub

Private Sub Picture1_Paint()
Picture1.Print "you are wellcom!"
End Sub
很感谢您的解答 ，那这段代码是怎么回事，如果判断用户名正确 ，那么这段代码就不执行了？？是这个意思 嘛？？有点想不通。

for......next......end if  是什么意思 ，尤其是 next 后面的那个  i

上面那个明白了，还有就是，如果 要同样实现这一个效果，还有没有其它方式 。

谢谢，各位大侠 的指点