WindowsフォームのDataGridで表示されているレコード数をカウントする

実際に表示されているレコード数。
0からではなく、1からカウントする。

Dim count As Integer
count = DataGrid1.BindingContext(DataGrid1.DataSource, DataGrid1.DataMember).Count