Public Class Form1
 
  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
 
    Private Const SW_HIDE = 0
    Private Const SW_MAXIMIZE = 3
    Private Const SW_MINIMIZE = 6
    Private Const SW_NORMAL = 1
    Private Const SW_SHOW = 5
    Private Const SW_RESTORE = 9
    Private Const SW_SHOWMAXIMIZED = 3
    Private Const SW_SHOWMINIMIZED = 2
    Private Const SW_SHOWMINNOACTIVE = 7
    Private Const SW_SHOWNA = 8
    Private Const SW_SHOWNOACTIVATE = 4
    Private Const SW_SHOWNORMAL = 1
 
    Private Const ERROR_BAD_FORMAT = 11&
    Private Const SE_ERR_ACCESSDENIED = 5
    Private Const SE_ERR_ASSOCINCOMPLETE = 27
    Private Const SE_ERR_DDEBUSY = 30
    Private Const SE_ERR_DDEFAIL = 29
    Private Const SE_ERR_DDETIMEOUT = 28
    Private Const SE_ERR_DLLNOTFOUND = 32
    Private Const SE_ERR_FNF = 2
    Private Const SE_ERR_NOASSOC = 31
    Private Const SE_ERR_OOM = 8
    Private Const SE_ERR_PNF = 3
    Private Const SE_ERR_SHARE = 26
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
 
        Dim Retval As Long
 
        Retval = ShellExecute(Me.Handle, "open", "mailto:info@rgsoftware.de", _
          "", "", 1)
 
    End Sub
End Class

Windows XP Home Service Pack 3 - Visual Basic 2008 Express - SQL Server 2008 Express with advance service