Option Explicit
Private FlgSkip As Boolean
 
Private Sub Form_Load()
  Dim i%
 
  For i = 1 To 100
    List1.AddItem i
  Next i
 
  FlgSkip = True
  For i = 0 To List1.ListCount - 1
    List1.Selected(i) = True
  Next i
  FlgSkip = False
End Sub
 
Private Sub List1_Click()
  If FlgSkip = True Then Exit Sub
  MsgBox "Click-Ereignis"
End Sub