Visual Basic - Problemas con listbox

Saludos a todos(a):

Primero que nada soy novato en esto de Visual Basic y estoy haciendo una práctica, en la cual tengo un "List" y dentro de él tengo dos contenidos los cuales son:

Bold
Negrita

Las cuales añadí de esta forma:

List1.additem "bold"
List1.additem "negrita"

Por otro lado tengo un "TextBox". Lo que quiero es que cuando se seleccion del List, por ejemplo la opcion Bold que esta se aplique al contenido del "Text1". Eje: Si escribo Emilio en el TxtBox que salga en negrita o en bold de acuerdo a la selección.

El código que agregué es el siguiente, pero no me funciona, lo agregué al form

If list1=bold then
Text1.FontBold=True
end if

Gracias de antemano.

Private Sub List1_Click()
Select Case List1.List(List1.ListIndex)
Case Is = "Negrita"
Text1.Font.Bold = True
Case Is = "Bold"
Text1.Font.Bold = False
Case Is = "Cursiva"
Text1.Font.Italic = True
Case Else
MsgBox List1.List(List1.ListIndex)
End Select
End Sub
prueba a ver si te va tienes mal: If list1=bold then , aunque los controles tienen una porpiedad por defecto, yo te recomiendo escribirlo todo
saludos