En un módulo declaras esto:
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Y luego en el form, por ejemplo en el evento click de un Command esto:
Dim Unidad As String
Dim reg As Long
Unidad = Mid(App.Path, 1, 3)
reg = ShellExecute(Me.hWnd, vbNullString, "mailto:" & "
[email protected]", vbNullString, Unidad, SW_SHOWNORMAL)
En la sección de Recursos de Visual Basic de mi página encontrarás cientos de recursos, tales como ejemplos de código fuente libre, controles Active X, tutoriales de VB, Crystal Report, creación de ficheros de ayuda, etc.
Espero que esta información te haya servido de ayuda.
Fdo.- Alvaro Marín
www.ambsoftware.com