Creating Login in VB.NET

If Me.TxbxUserName.Text = My.Settings.UserName And Me.TxbxUserPassword.Text = My.Settings.UserId Then
                My.Forms.frmMain.Show()
                Me.Close()
            End If

            If Me.TxbxUserName.Text <> My.Settings.UserName Then
                Me.ErrorProvider1.SetError(Me.TxbxUserName, "Invalid Username")
            ElseIf Me.TxbxUserName.Text = "" Then
                Me.ErrorProvider1.Clear()
            End If

            If Me.TxbxUserPassword.Text <> My.Settings.UserId Then
                Me.ErrorProvider1.SetError(Me.TxbxUserPassword, "invalid User ID")
                Me.ErrorProvider1.Clear()
            End If

            If Me.TxbxUserPassword.Text <> My.Settings.UserId And Me.TxbxUserName.Text <> My.Settings.UserName Then
                Me.LblCounter.Text -= 1
            End If

            If Me.LblCounter.Text = 0 Then
                My.Settings.CloseTime = TimeHolder
                My.Settings.Save()
                End
            End If