Private Async Sub txtPasswordLog_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtPasswordLog.KeyPress
    If Peek = False Then
        Await Task.Delay(1)
        PasswordChanger(txtPasswordLog, Password)
    End If
End Sub