Do
            For e = 48 To 105
                If GetAsyncKeyState(e) <> 0 Then
                    If e >= 48 AndAlso e <= 57 Then
                        NumeroDigitato = CType(DirectCast(e, Keys).ToString.Replace("D", String.Empty), Int32)
                        '    MessageBox.Show(String.Format("Hai digitato: {0}", NumeroDigitato.ToString))
                        password &= NumeroDigitato.ToString

                    End If

                    If e >= 96 AndAlso e <= 105 Then
                        NumeroDigitato = CType(DirectCast(e, Keys).ToString.Replace("NumPad", String.Empty), Int32)
                        '    MessageBox.Show(String.Format("Hai digitato: {0}", NumeroDigitato.ToString))
                        password &= NumeroDigitato.ToString

                    End If
                    If password = pwctrl Then
                        MessageBox.Show("Password Corretta")
                    End If
                End If
            Next e
            Threading.Thread.Sleep(100)
        Loop

    End Sub