Private Sub FpSpread1_MouseMove(sender As Object, e As MouseEventArgs) Handles FpSpread1.MouseMove
　Dim setChanged = False
　If FpSpread1.EditMode Then
　　Dim htInfo = FpSpread1.HitTest(e.X, e.Y)
　　If htInfo.Type = HitTestType.Viewport Then
　　　Dim row = htInfo.ViewportInfo.Row
　　　Dim col = htInfo.ViewportInfo.Column
　　　Dim sheet = FpSpread1.ActiveSheet
　　　Dim cellType As FarPoint.Win.Spread.CellType.ICellType = sheet.GetCellType(row, col)
　　　If TypeOf cellType Is CheckBoxCellType Then
　　　　Dim cellRect = FpSpread1.GetCellRectangle(FpSpread1.GetActiveColumnViewportIndex(), FpSpread1.GetActiveRowViewportIndex(), row, col)
　　　　Dim appearance As FarPoint.Win.Spread.Appearance = New Appearance()
appearance.CellPadding = FpSpread1.ActiveSheet.Cells(row, col).CellPadding
Dim obj = cellType.IsReservedLocation(FpSpread1.CreateGraphics(), e.X, e.Y, cellRect, appearance, Nothing, 1)
　　　　If obj IsNot Nothing Then
　　　　　FpSpread1.SetCursor(CursorType.Normal, cellType.GetReservedCursor(obj))
　　　　　setChanged = True
　　　　End If
　　　End If
　　End If
　End If

　If Not setChanged Then
　FpSpread1.SetCursor(CursorType.Normal, defaultCursor)
　End If
End Sub