Private Sub Grid1_OnLinkClick(ByVal nRow As Long, _
  ByVal nCol As Long, ByVal sLink As String)
 
  sLink = Grid1.Text(nRow, 3)
  If InStr(sLink, "@") > 0 Then
    ShellExecute Me.hWnd, "open", "mailto:" & sLink, "", "", 1
  Else
    ShellExecute Me.hWnd, "open", sLink, "", "", 1
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de