[VB6] Sélection d'un dirlistbox en un seul click!?

Bonjour à vous, voici ma situation.
Je dois faire un interface qui sera contrôlé avec un écran touchscreen. Étant donné qu'il n'y aura pas de souris, j'essais au maximum de minimiser l'utilisation du double-clic. Je dois faire un transfert de fichier (backup) et le problème est que pour choisir mon dossier de destination, je dois double-cliquer sur le dossier dans le dirlistbox. Est-il possible de sélectionner ce dossier en un seul clic?

     Merci de votre aide

Peut être ceci ?

Public Const MK_LBUTTON = &H1
Public Const WM_LBUTTONUP = &H202
Public Const WM_LBUTTONDOWN = &H201

Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Public Function MakeDW(LoWord As Integer, HiWord As Integer) As Long
   MakeDW = (HiWord * &H10000) + (LoWord And &HFFFF&)
End Function

Public Sub SendDubbleClick(byval hWnd as long, lnX as long, lnY as long)
Dim myXY as long

   myXY = MakeDW(lnX, lnY) 
   SendMessage(hWnd, WM_LBUTTONDOWN, ByVal CLng(MK_LBUTTON), ByVal targetXY)
   SendMessage(hWnd, WM_LBUTTONUP, ByVal CLng(MK_LBUTTON), ByVal myXY)
End Sub

Ben pour utiliser ce code tu feras depuis ton MonObjet_MouseMove:

Call Send DubbleClick(MaForm.hwnd, X, Y)
Call Send DubbleClick(MaForm.hwnd, X, Y)

Oh ouais!
Merci beaucoup Renfield pour ton aide, ta solution est vraiment simple, efficace et fonctionnel!