Äã ¿É ÒÔ Õâ Ñù ×ö £º 
    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>
