'Event Subscription AddHandler Me.gridDataBoundGrid1.Model.QueryCellInfo, AddressOf Model_QueryCellInfo 'Event Customization Private Sub Model_QueryCellInfo(ByVal sender As Object, ByVal e As GridQueryCellInfoEventArgs) Dim currentCell As GridCurrentCell = gridDataBoundGrid1.CurrentCell If currentCell IsNot Nothing AndAlso e.RowIndex = currentCell.RowIndex AndAlso e.ColIndex = currentCell.ColIndex AndAlso currentCell.IsEditing Then e.Style.Font.Size = 15.0F e.Handled = True End If End Sub |