كمك فوري (اگه vb بلدين كمكم كنيد)

[admin]

سلام.
اول که کاشکی پروژه رو به صورت کامل آپلود میکردید . دوم هم شما باید به صورت زیر عمل کنید:

کد:

Private Sub Command1_Click()
If Trim(Text1.Text) = "1" Then
MsgBox "ok Password"
Else
MsgBox "error"
End If
End Sub