VB Code:
  1. If MsgBox("Are you shure you want to clear the list?", vbYesNo, "Clear List?") = vbYes Then

  2.     For x = 0 To cboMovies.ListCount

  3.         cboMovies.RemoveItem (x)

  4.     Next

  5. Else

  6. Exit Sub

  7. End If