CreateCommandB

Private Sub Command1_Click()
Dim Fine As Single
Dim Pausa As Long
Pausa = 1 'Imposto il tempo massimo
'per il secondo click (1 secondo)

Fine = Timer 'prendo l'ora della pressione
'se dalla pressione precedente e' passato meno della pausa

'impostata allora...

If Fine - Val(Label1.Caption) < Pausa Then
MsgBox "Evento DoubleClick Attivato!!!"
Else
'altrimenti continuo

Label1.Caption = Timer
End If
End Sub

'******************************************************

'Fine procedura.

'******************************************************