[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