@Neferes in verdigi c# kodunu VB ye uyarlayacaksiniz hocam zaten basit birsey kalmamis.

bilmemne_sub
if ((e.RowIndex > -1) & (e.ColumnIndex > -1)) then
dataGridView1.Rows[e.RowIndex].Cells[e.ColumnIndex].Style.BackColor = Color.Red
end if
end sub