Visual Basic - Agregar direcciones

Hola a todos soy nuevo en esto de visual basic, el caso es que he creado un programa para mandar mails pero no se como hacer para que en la pestaña de añadir mail salgan por defecto mis contactos de hotmail, he creado una base de datos con acces importando los contactos de hotmail, pero yua no se seguir este es el codigo.,gracias




Imports System.Net
Imports System.Net.Mail
Public Class Form1


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MessageBox.Show("Quieres enviar el mail??")


Try

Dim usuario As String = TextBox1.Text
Dim contraseña As String = TextBox2.Text
Dim server As String = TextBox3.Text
Dim puerto As Integer = Integer.Parse(TextBox4.Text)
Dim para As String = TextBox5.Text
Dim asunto As String = TextBox6.Text
Dim contenido As String = TextBox7.Text
Dim correo As New MailMessage
With correo
.From = New MailAddress(usuario)
.Subject = asunto
.To.Add(para)
.Body = contenido
End With
Dim servidor As New SmtpClient
With servidor
.Host = server
.Port = puerto
.EnableSsl = True
.Credentials = New NetworkCredential("direccion "contraseña")
.Send(correo)
End With
MessageBox.Show("correo enviado exitosamente gracias a Ivan")
Catch ex As Exception
MessageBox.Show(ex.Message, "error")
End Try

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
MessageBox.Show("seguro que quieres salir??")

Me.Close()

End Sub

Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
MessageBox.Show("Hola bienvenido")
End Sub
End Class