كيفية الحصول على كلمة المرور

السلام عليكم ورحمة الله وبركاته

لم افهم السؤال جيداً لكن على حسب مافهمت من كلامك جرب هذا الكود وان لم يكن هو المطلوب فنحن فى خدمتك :rolleyes:

Const PWD$ = "HUSSAM"

Private Sub Command1_Click()
Label1.Caption = PWD
End Sub

Private Sub Form_Load()
Dim I$, M$
Prompt:
I = InputBox("Please enter password to enter the program")
If Len(I) Then
    If I = PWD Then
        MsgBox "You can now enter the program"
        Form1.Show
    Else
        M = MsgBox("Sorry, Invalid password, Do you want to try again?", vbQuestion + vbYesNo)
        If M = vbYes Then
            GoTo Prompt
        Else
            End
        End If
    End If
Else
    GoTo Prompt
End If
End Sub

توجد طرق اخرى اكثر تعقيداً للتأكد من كلمة المرور لكن بما انك مبتدئ كما تقول فاكتفى بالجملة If حالياً :D

السلام عليكم

الاخ " الشبح" غوست اشكر ردك و اهتمامك

لدي استفسار حول الكود اذا سمحت لي

اين اضع الكود التالي :

Const PWD$ = "HUSSAM"

في الفورم او كلاس او في زر الامر الاول ؟؟

ثانيا / سوف اوضح لك المطلوب بالظبط :

فورم فيه زر امر عند الضغط عليه يظهر Inputbox يطلب منك الباسسورد ليدخلك الى البرنامج .. ثم تظهر رسالة لتقول لي يمكنك الدخول الى البرنامج.

ايد ان اضع زر اخر اطلب فيه الباسورد الصحيحة..

الصعوبة هو في الزر الثاني الذي يبحث في حالة الاحرف و يرجع لي الباسسورد التي يمكنني الدخول فيها للبرنامج ..

اتمنى ان اكون قد اوضحت المطلوب و اعذرني ان اثقلت و اعذر جهلي

اشكرك مرة اخرى و كل عام و انت بخير

اخوك حسام

السلام عليكم

جرب الملف المرفق

PassWord.zip