Option Explicit
 
Dim vItem As Integer, i As Integer
Dim Pausa As Long
 
Private Sub Command1_Click()
    If List1.ListCount = 0 Then Exit Sub
    vItem = List1.ListIndex
    Timer1.Enabled = True
    Timer1.Interval = 200
End Sub
 
Private Sub Form_Load()
    For i = 0 To 5
        List1.AddItem "Item " & i
    Next i
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
    End
End Sub
 
Private Sub Timer1_Timer()
    List1.Selected(vItem) = True
    Pausa = 0.5 + Timer
    While Pausa >= Timer
        DoEvents
    Wend
    List1.Selected(vItem) = False
End Sub