Msg

dim 一个新的Objct 是我在老V里没有用过的  test了一下
为新的引用留下伏笔
再test了一下老的，还是可以，呵呵

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        'Dim answer As Object
        Dim message1 As String
        Dim message2 As String
        Dim caption As String
        caption = "检查密码"
        message1 = "密码正确"
        message2 = "密码错误"
        If TextBox1.Text = "user" And TextBox2.Text = "111" Then
            ' answer = MsgBox(message1, 1, caption)
            MsgBox(message1, 1, caption)
        Else
            'answer = MsgBox(message2, 1, caption)
            MsgBox(message2, 1, caption)
        End If
    End Sub