Visual Basic - Deselecionar el listbox

Tengo un programita donde he creado un boton nuevo que tiene la finalidad de limpiar los valores de todos los objetos, el problema es con el list puesto que si ya he seleccionado una opcion no encuentro como al presionar el boton nuevo se deseleccione y quede sin la opcion seleccionada

Puedes crear una procedimiento donde recorra todo el listbox y deseleccione todo el listbox, algo como esto:
Sub Deseleccionar()
Dim I As Integer
For I = 0 To List1.ListCount - 1
List1.Selected(I) = False
Next I
End Sub