Function CellBackgroundPaint(g As Graphics, row As Integer, column As Integer) Handles CellBackgroundPaint as Boolean
  #pragma Unused column
  Dim x As Integer
  Dim x1 As Integer
  Dim y As Integer
  Dim j As Integer
  Dim ix As Integer
  Dim iy As Integer
  Dim indx As Integer
  Dim p As picture
  Dim xLeft As Integer
  Dim xRight As Integer
  Dim isRoot As Boolean
  Dim icon_size As Integer
  Dim theNode As treeNODE
  Dim theIcon As picture
  Dim cbType As Integer
  Dim child_count As Integer
  Dim s As String
  //
  If column<>0 Then Return True
  //
  // Adjust Column Width
  //
  x=Self.column(0).WidthActual+2
  If (x<Self.width) Or (zRightJustified And x>Self.width) Then
    Self.column(0).WidthActual=Self.width-2
  End If