[سلام و محبه]

لسلام عليكم
اريد تصميم شاشه login
 [/url]
كتبت كود لم يعمل

كود :

Private Sub BtnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnLogin.Click


      If (Txtuser_name.Text.Trim() And Txtuser_password.Text.Trim()) = True Then
          Dim db = New db_accountDataContext

          Dim xname = (From s In db.user7s Where s.user_name = Txtuser_name.Text And s.user_password = Txtuser_password.Text Select s.user_name).SingleOrDefault

          If xname = IsDBNull(Txtuser_name.Text) Then

              MsgBox("ادخل بيانات صحيحه", MsgBoxStyle.Information, Application.ProductName)

              Return
          Else
              Form1.Show()
              Me.Hide()
          End If
      End If
  End Sub