Private Sub MSFlexGrid1_Click()
  With MSFlexGrid1
    ' Bei Klick auf eine Zelle (4. Spalte)...
    If .MouseCol = 3 And .MouseRow > 0 Then
      ShellExecute Me.hWnd, "open", .TextMatrix(.MouseRow, .MouseCol), "", "", 1      
    End If
  End With
End Sub

Private Declare Function ShellExecute Lib "shell32.dll" _
    Alias "ShellExecuteA" (ByVal hWnd As Long, _
    ByVal lOperation As String, _
    ByVal lpFile As String, _
    ByVal lpParameters As String, _
    ByVal lpDirectory As String, _
    ByVal nShowCmd As Long) As Long

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de