Private Sub DataGridView1_CellMouseMove(sender As Object, e As EventArgs) Handles DataGridView1.CellMouseMove
Dim columnIndex as Integer = e.ColumnIndex
If DataGridView1.Columns(columnIndex).ReadOnly Then
Cursor.Current = Cursors.IBeam
Else
Cursor.Current = Cursors.Default
End If
End Sub