CheckBox 與 ListBox(編號：6802)

當我將某一個checkbox打勾時,要在listbox中新增一項目
當勾勾取消時,在listbox產生的項目也要取消
請問應如何做勒?
我的程式碼在哪邊有錯勒?
謝謝~~~~~~~~~~~~
Code:
Private Sub Check1_Click()
If Check1.Value = True Then
　　　List1.AddItem "身分證正本"
　 ElseIf Check1.Value Then
　　　For i = 0 To List1.ListCount - 1
　　　　 If List1.Text = "身分證正本" Then
　　　　　　List1.RemoveItem "身分證正本"
　　　　 End If
　　　Next i
　 End If
End Sub