Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        Dim cm As CurrencyManager = CType(Me.BindingContext( _
        DataGrid1.DataSource), CurrencyManager)
        For i As Integer = 0 To cm.Count - 1
            If DataGrid1.IsSelected(i) Then
                Debug.WriteLine("Row " + i.ToString() + " is selected id=" + _
                  CType(cm.List, DataView)(i)("OrderID").ToString())
            End If
        Next
    End Sub