Private Sub DataGrid1_MouseDown(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.MouseEventArgs)
 
        Try
            Dim dg As DataGrid = Me.DataGrid1
            Dim ht As DataGrid.HitTestInfo = dg.HitTest(e.X, e.Y)
            Select Case ht.Type
                Case DataGrid.HitTestType.Cell
                    If (ht.Column = 0) And Not (ht.Row < 0) Then
                        MsgBox(Me.DataGrid1.Item(ht.Row, ht.Column), _
                          MsgBoxStyle.Information, "Info")
                    End If
            End Select
        Catch ex As Exception
            MsgBox(ex.Source & " verursachte den Fehler:" & vbCr & ex.Message, _
              MsgBoxStyle.Critical, _
                                                      "ShowDataGridInfo")
        End Try
    End Sub