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

الخطا في TextBox2.Text = b لأن TextBox2.Text من نوع String و B من نوع integer ولايمكنك عمل المقارنة هنا يجب عليك تبديل النوع مثلا

  Dim a As String
       Dim b As String
       a = "سلطان"
       b = "12345"
       If TextBox1.Text = a And TextBox2.Text = b Then
           MessageBox.Show("مرحباً بك بــ برنامج التسجيل")
           Dim f1 As New Form6()
           f1.Show()
           Me.Hide()
       Else
           MessageBox.Show("كلمة المرور واسم المستخدم خطأ")
       End If
   End Sub

بالتعديل الذي وضعته أصبح الاثنان من النوع String وبهذا أصبحت المقارنة صحيحة

-9

وأعتقد أيضا أنه ممكن ترك الb من نوع integer وتحويل ال b في الif الي string عن طريق الداله cstr وهى أخى الفاضل amr تحول من integer إلى string

Dim a As String
       Dim b As Integer
       a = "سلطان"
       b = 12345
       If TextBox1.Text = a And TextBox2.Text = cstr(b) Then
           MessageBox.Show("مرحباً بك بــ برنامج التسجيل")
           Dim f1 As New Form6()
           f1.Show()
           Me.Hide()
       Else
           MessageBox.Show("كلمة المرور واسم المستخدم خطأ")
       End If
   End Sub

وهذا يعتبر رأى شخصى

-waf

شكرا لكم يا اخواني ضبط معاي

والله يوفقكم