[Mohamed Magdy]

(23-11-18, 08:16 AM)asemshahen5 كتب : إحفظ كلمات المرور في السيتنغ .

أما بالنسبة لعرض النوافذ :

كود :

If TextBox1.Text = My.Settings.Pass1 Then
           Dim frmshow1 As New FormShow1
           frmshow1.Show()
       ElseIf TextBox1.Text = My.Settings.Pass2 Then
           Dim frmshow2 As New FormShow2
           frmshow2.Show()
       Else
           MsgBox("false information")
       End If

لا انا عايز احدث البسورد عن بعد من الدروب بوكس اخى
وشكراا على ردك

---

(23-11-18, 08:16 AM)asemshahen5 كتب : إحفظ كلمات المرور في السيتنغ .

أما بالنسبة لعرض النوافذ :

كود :

If TextBox1.Text = My.Settings.Pass1 Then
           Dim frmshow1 As New FormShow1
           frmshow1.Show()
       ElseIf TextBox1.Text = My.Settings.Pass2 Then
           Dim frmshow2 As New FormShow2
           frmshow2.Show()
       Else
           MsgBox("false information")
       End If

شكرا لك اخى تم الانتها من المشكلة بى الكود تبعك فقط لفد عدلت علية من حيث خليتوة كدا 

كود :

       If TextBox1.Text = Label2.Text Then
           Form2.Panel1.Visible = False
           Form2.Show()
       ElseIf TextBox1.Text = Label3.Text Then

           Form2.Panel1.Show()
           Form2.Show()
       Else
           MsgBox("false information")
       End If
   End Sub