كيف اضيف نافذة لكل مستخدم تفتح بلا مشاكل عند ادخال اسم المستخدم وكلمة المرور

استخدم هذا الكود

    If Text1.Text = "user1" And Text2.Text = "123" Then
            MsgBox "مرحبا بالمستخدم الأول", vbMsgBoxRight + vbOKOnly, "مرحباً"
            Unload Me
            FrmUser1.Show
        ElseIf Text1.Text = "user2" And Text2.Text = "1234" Then
            MsgBox "مرحبا بالمستخدم الثاني", vbMsgBoxRight + vbOKOnly, "مرحبا"
            Unload Me
            FrmUser2.Show
    Else
        MsgBox "عفوا اسم المستخدم او كلمة المرور خطأ ", vbMsgBoxRight + vbOKOnly + vbCritical, "خطأ في الادخال "
    End If

تحياتي

أشكرك أخوي العماني ..

المثال شغال

تحياتي

اسم مستخدم وكلمة مرور.rar