CHANGER LA VITESSE DE DÉFILEMENT DES SOUS MENU SOUS WINDOWS 98

Private Sub Command1_Click()
If IsNumeric(Text1.Text) Then
Dim r
Set r = CreateObject("WScript.Shell")
r.RegWrite "HKEY_CURRENT_USER\Control Panel\Desktop\MenuShowDelay", Text1.Text
MsgBox "Changement effectué avec succès, veuillez redémarrer votre ordinateur", vbOKOnly + vbExclamation, "Terminé"
End
Else
MsgBox "Valeure incorrecte", vbOKOnly + vbCritical, "Attention"
End
End If
If Text1.Text < 0 Or Text1.Text > 100000 Then
MsgBox "Valeure incorrecte", vbOKOnly + vbCritical, "Attention"
Else
Set r = CreateObject("WScript.Shell")
r.RegWrite "HKEY_CURRENT_USER\Control Panel\Desktop\MenuShowDelay", Text1.Text
End If
End Sub