'Hallo e-dirk
'Hier ein kleines Lösungsbeispiel wie Du einen Command-Button dazu verwenden 
' kannst
'einen Dauerklick auszuführen.
'Zum Testen markiert der Button-Click (solange die Maustaste gedrückt wird) den
'Inhalt einer ListBox in einem Zeitinterval von 500 Millisekunden, beim 
' Loslassen
'der Maustaste wird die Prozedur verlassen.
'NG.:15.03.03.do.
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
 
Private blSuccess As Boolean
 
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As _
  Single, Y As Single)
    Dim mCounter As Integer
 
    blSuccess = False
    mCounter = 0
    While mCounter < List1.ListCount - 1
        DoEvents
        mCounter = mCounter + 1
        Call Sleep(500)
        If blSuccess = True Then Exit Sub
        Call Test(mCounter)
    Wend
End Sub
 
Private Sub Test(mytest)
    With List1
        .Selected(mytest) = True
    End With
End Sub
 
Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, _
  Y As Single)
    blSuccess = True
End Sub
 
Private Sub Form_Load()
    With List1
        For n = 0 To 9
            .AddItem CStr(n)
        Next
    End With
    blSuccess = False
End Sub
'MfG
'Frank