Private Sub DataGridView1_RowEnter(sender As Object,
e As DataGridViewCellEventArgs) Handles DataGridView1.RowEnter
'もしも選択行がない場合、Returnで抜ける
If CType(sender, DataGridView).SelectedRows.Count = 0 Then Return
'選択しているデータリッドビューのインデックス背景行にシアン色を設定
Me.DataGridView1.Rows(CType(sender, DataGridView).SelectedRows(0).Index).
DefaultCellStyle.BackColor = Color.Cyan
End Sub