你 可 以 這 樣 做 ： 
    Dim bFire As Boolean 
     
    Private Sub Form_Load() 
     List1.AddItem "c" 
     List1.AddItem "d" 
     bFire = False 
     ' 這 里 不 觸 發 Click事 件 
     List1.ListIndex = 1 
     bFire = True 
    End Sub 
     
    Private Sub Form_Click() 
     ' 這 里 觸 發 Click事 件 
     List1.ListIndex = 0 
    End Sub 
     
    Private Sub List1_Click() 
     If bFire = False Then Exit Sub 
     Debug.Print "Click" 
    End Sub 
<END>