NewsDownload()                              ' RSS Feed Download
 NewsDataSet.ReadXml(NewsDownload)           ' XML lesen
 NewsDataGridView.DataSource = NewsDataSet   ' aus DataSet in Data Grid
 NewsDataGridView.DataMember = "item"        ' alles zeigen was unter "item" _
   steht

Private Sub NewsDataGridView_CellContentClick(ByVal sender As Object, ByVal e _
  As System.Windows.Forms.DataGridViewCellEventArgs) Handles _
  NewsDataGridView.CellContentClick
        Try
            ' prüfen ob der Benutzer auf dem "Details-Feld" aka "NewsLink" ist 
            ' und klickt
            If (e.ColumnIndex = Me.NewsDataGridView.Columns("NewsLink").Index) _
              Then
                Dim NewsURL As String = Me.NewsDataGridView("NewsLink", _
                e.RowIndex).Value.ToString()
                Shell("Explorer.exe" & " " & NewsURL, vbMaximizedFocus)
            End If
        Catch ex As Exception
            MsgBox(ex.Message.ToString(), MsgBoxStyle.Exclamation, _
              "NewsDataGrid_CellContentClick")
        End Try
    End Sub