Public Function GetSelectedRows(ByVal datagrid1 As DataGrid) As System.Collections.ArrayList
Dim al As New System.Collections.ArrayList()
Dim i As Integer
' line assume's datasource is dataset - if datasource is datatable 2nd option
' While i < CType(dataGrid1.DataSource, DataSet).Tables(0).Rows.Count 'option 1
While i < CType(datagrid1.DataSource, DataTable).Rows.Count 'option 2
If datagrid1.IsSelected(i) Then
al.Add(i)
End If
i = i + 1
End While
Return al
End Function 'GetSelectedRows
Private Sub button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim s As String = "Selected rows:"
Dim o As Object
For Each o In GetSelectedRows(dataGrid1)
s += " " + o.ToString()
Next o
MessageBox.Show(s)
End Sub 'button1_Click