Private Declare Function SetDoubleClickTime Lib "user32" (ByVal wCount As Long) As Long Private Declare Function GetDoubleClickTime Lib "user32" () As Long Private Sub Form_Load() 'VbAndJava 1999/2000 'Guerrault Yonni 'E-Mail : Yonni4@iFrance.com m_dct = GetDoubleClickTime SetDoubleClickTime m_dct * 2 MsgBox "Le temps du doubleclick était" + Str$(m_dct) + " mSecs, mais maintenant je l'ai changé en" + Str$(m_dct * 2) + " mSecs.", vbInformation + vbOKOnly, App.Title End Sub