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

[admina]

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

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

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

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

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

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

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


<span style="font-family: trebuchet ms"><font size="3"><font color="Indigo"><b><font color="red">[فقط اعضاء انجمن قادر به مشاهده لینکها و عکسها می باشند <a href="/reg_iran.php" target="_blank">برای عضویت در سایت کلیک کنید</a>]</font></b></font></font></span>







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) = &quot;&quot; Then
MsgBox &quot; áØÝÇ ˜áãå ÚÈæÑ ãæÑÏ äÙÑ ÎæÏ ÑÇ æÇÑÏ äãÇííÏ &quot;, vbExclamation, &quot;Warninng !&quot;
Text1.SetFocus
Exit Sub
End If
SaveSetting &quot;Media Soft&quot;, &quot;Ajans Yar&quot;, &quot;Password&quot;, Trim(Text1)
End If
Unload Me
End Sub

Private Sub Form_Load()
A = GetSetting(&quot;Media Soft&quot;, &quot;Ajans Yar&quot;, &quot;Password&quot;)
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

[admin]

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

کد:


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

[admina]

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