Visual Basic - Mandar Email

Hola,como puedo mandar email si untilzar el control de envio a traves de Outlook.
Gacias, un saludo!

private sub command1_click()
Dim out as object
set out = createObject("Outlook.Application")
with out.createitem(olmailitem)
.recipients.add "[email protected]"
.subject = "prueba"
.body=text1.text
.attachments.add"ruta"
.send
end with
end sub

estudialo y ojala y te sirva