Envio de mail a multiples destinarios Visual basic 2005

[Rubiano]

Buenas tardes amigos, tengo una aplicacion que requiere enviar mail a todos los usuarios que se encuentren en un listbox, pero hasta ahora solo lo envia al primero de la lista. este es el codigo usado:

Sub Mail()
Dim m_OutLook As Outlook.Application
Try
Dim objMail As Outlook.MailItem 'Creacion de Objeto tipo Mail
m_OutLook = New Outlook.Application 'Inicializa OutLook
objMail = m_OutLook.CreateItem(Outlook.OlItemType.olMailItem ) 'Creacion de instancia de objeto tipo MailItem
' Asignacion de propiedades a la Instancia del objeto
' MailItem
objMail.To = ListBox2.Text (destinatario1,destinatario2, etc)
objMail.Subject = "Servicio..............er"
objMail.Body = "En estos momentos, el sistema..... tomar las previsiones del caso." & vbCrLf & vbCrLf & "Muchas Gracias."
objMail.Send() 'Envio del Mail
Catch ex As Exception
MsgBox("Error enviando mail")
Finally
m_OutLook = Nothing
End Try

Agradezco mucho la ayuda que me puedan brindar.

Freddy R.