DragOver 중복 추가와 풍선도움말 줄바꿈 질문

이전 DragOver 질문에 답변 주셔서 감사합니다. 알려주신 코드로 동작은 잘 됩니다.
그런데 실행할 때마다 컴퓨터 항목이 계속 추가돼요. 한 번만 추가하려면 어떻게 해야 할까요?

Private Sub List1_DragOver(source As Control, x As Single, y As Single, State As Integer)
If State = 0 Then
List1.AddItem 컴퓨터, 0
End If
End Sub

그리고 풍선 도움말 줄바꿈도 질문드립니다.
아래처럼 작성했는데 줄바꿈이 적용되지 않아요. 어떻게 해야 하나요?

Private Sub Form_Load()
Combo1.ToolTipText = 나는 콤보박스 + vbCrLf + 너는 무슨박스?
End Sub