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