Private Sub OK_Click()
If Text1.Text = "cuigaojie" And Text2.Text = "520" Then Form2.Show
Else: MsgBox "mianaasda", vbDefaultButton1, "提示"

End If
Unload Me
End Sub

找不到IF????

已经解决

应该这样：
Private Sub OK_Click()
If Text1.Text = "cuigaojie" And Text2.Text = "520" Then
Form2.Show
Else: MsgBox "mianaasda", vbDefaultButton1, "提示"

End If
Unload Me
End Sub

谢谢哦`~