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. '****************************************************** Inserire in un form un command button 'command1'. Inserire una label 'Label1' con proprieta' Visible = False e Caption = "". |