VB 6.0 Select baris datagrid lebih dari satu

Misalkan nama datagridnya dgDaftarPasienLab Untuk melakukan select lebih dari 1 gunakan tombol Ctrl

Dim i As Integer
Dim intCount As Integer
   
intCount = dgDaftarPasienLab.SelBookmarks.Count - 1
ReDim ArrSelBK(intCount)
   
For i = 0 To intCount
           ArrSelBK(i) = dgDaftarPasienLab.SelBookmarks(i)
           dgDaftarPasienLab.Row = ArrSelBK(i) - 1
     
           'Perintah'

Next i