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

من يه برنامه نوشتم با زبان vb

اين فرمو طراحي كردم

مشكل اينجاست بدون رمز وارد ميشه

و وقتي رمزي كه گذاشتمو ميزنم ميگه اشتباهه

لطفا كمكم كنيد دوستان

اگه ميشه ايديمو ادد كنيد اونجا بم بگين چيكار كنم(ايديم تو پروفايلم هست)

اينم كدهاي اين فرم هست

[برای مشاهده لینک ها شما باید عضو سایت باشید برای عضویت در سایت بر روی اینجا کلیک بکنید]

Private Sub Check1_Click()
If Check1.Value = 1 Then
Label1.Enabled = True
Text1.Enabled = True
Else
Label1.Enabled = False
Text1.Enabled = False
End If
End Sub

Private Sub Cmd_Cancel_Click()
Unload Me
End Sub

Private Sub Cmd_OK_Click()
If Check1.Value = 1 Then
If Trim(Text1) = "" Then
MsgBox " áØÝÇ ˜áãå ÚÈæÑ ãæÑÏ äÙÑ ÎæÏ ÑÇ æÇÑÏ äãÇííÏ ", vbExclamation, "Warninng !"
Text1.SetFocus
Exit Sub
End If
SaveSetting "Media Soft", "Ajans Yar", "Password", Trim(Text1)
End If
Unload Me
End Sub

Private Sub Form_Load()
A = GetSetting("Media Soft", "Ajans Yar", "Password")
Text1 = A
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
KeyAscii = 0
Call Cmd_OK_Click
End If
End Sub

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

کد:

کد:

---

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

---

ممنون از جوابتون ،الان كل پروژه رو* ارسال ميكنم