Private Sub fGrid_CustomDrawCellForeground(sender As Object, e As iGCustomDrawCellEventArgs) Handles fGrid.CustomDrawCellForeground
		If CStr(fGrid.Rows(e.RowIndex).Tag) = "Hide cell button" And CStr(fGrid.Cols(e.ColIndex).Tag) = iGButtonColumnManager.BUTTON_COLUMN_TAG Then
			Dim StringSize As SizeF = e.Graphics.MeasureString(fGrid.Cells(e.RowIndex, e.ColIndex).Text, fGrid.Font)

			Dim brush As New SolidBrush(Color.Black)
			If fGrid.CurCell IsNot Nothing Then
				If fGrid.CurCell Is fGrid.Cells(e.RowIndex, e.ColIndex) Then
					brush.Color = fGrid.CurCell.EffectiveForeColor
				Else
					brush.Color = fGrid.SelCellsForeColor
				End If
			Else
				brush.Color = fGrid.ForeColor
			End If

			Dim xLoc As Single
			Dim drawFormat As New StringFormat

			'Select Case fGrid.Cells(e.RowIndex, e.ColIndex).TextAlign
			'Case iGContentAlignment.TopCenter, iGContentAlignment.MiddleCenter, iGContentAlignment.BottomCenter

			drawFormat.Alignment = StringAlignment.Center
			xLoc = e.Bounds.X + CSng(e.Bounds.Width / 2)

			'Case iGContentAlignment.TopLeft, iGContentAlignment.MiddleLeft, iGContentAlignment.BottomLeft
			'	drawFormat.Alignment = StringAlignment.Near
			'	xLoc = e.Bounds.X + 10
			'Case iGContentAlignment.TopRight, iGContentAlignment.MiddleRight, iGContentAlignment.BottomRight
			'	drawFormat.Alignment = StringAlignment.Far
			'	xLoc = e.Bounds.X + StringSize.Width
			'End Select

			Dim yLoc As Single = e.Bounds.Y + CSng(e.Bounds.Height / 2) - CSng(StringSize.Height / 2)
			e.Graphics.DrawString(fGrid.Cells(e.RowIndex, e.ColIndex).Text, fGrid.Font, brush, xLoc, yLoc, drawFormat)
		End If
	End Sub

	Public Sub AddButton(ByVal cell As iGCell, Optional txt As String = "")
		With cell
			.Selectable = False
			.CustomDrawFlags = iGCustomDrawFlags.Foreground
			.ContentIndent = New iGIndent(0, 0, 0, 0)
			If txt.Length > 0 Then .Value = txt
		End With
		ButtonCells.Add(cell)
	End Sub

	Public Sub AddButton(ByVal cell As iGFooterCell, Optional txt As String = "")
		With cell
			.CustomDrawFlags = iGCustomDrawFlags.Foreground
			.ContentIndent = New iGIndent(0, 0, 0, 0)
			If txt.Length > 0 Then .Value = txt
		End With
		ButtonCells.Add(cell)
	End Sub

Friend ReadOnly ButtonCells As New List(Of Object)

	Public Sub New(Grid As iGrid)
		fGrid = Grid
	End Sub

	Private Function IsCellButton(ByVal rowIndex As Integer, ByVal colIndex As Integer) As Boolean
		Return ButtonCells.Find(Function(x) x.RowIndex = rowIndex And x.ColIndex = colIndex) IsNot Nothing
	End Function

			' Determine the button state.
			Dim myState As VisualStyles.PushButtonState
			'Select Case e.State
			'	Case iGControlState.Normal
			'		myState = VisualStyles.PushButtonState.Normal
			'	Case iGControlState.Hot
			'		myState = VisualStyles.PushButtonState.Hot
			'	Case iGControlState.Pressed
			'		myState = VisualStyles.PushButtonState.Pressed
			'	Case iGControlState.Disabled
			'		myState = VisualStyles.PushButtonState.Disabled
			'End Select
			' do this instead
			myState = VisualStyles.PushButtonState.Normal