- 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
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