Thread: printing treeview!!!

Private Sub PrepareTreeImage()
Dim _scrollBarWidth As Integer
Dim _scrollBarHeight As Integer
Dim height1 As Integer
Dim node1 As New TreeNode
Dim width1 As Integer

_scrollBarWidth = tvwLanguages.Width - tvwLanguages.ClientSize.Width
_scrollBarHeight = tvwLanguages.Height - tvwLanguages.ClientSize.Height
tvwLanguages.Nodes(0).EnsureVisible()
height1 = tvwLanguages.Nodes(0).Bounds.Height
tvwLanguages.Height = height1
width1 = tvwLanguages.Nodes(0).Bounds.Right
node1 = tvwLanguages.Nodes(0).NextVisibleNode


While (node1 IsNot Nothing)
Height += node1.Bounds.Height
End While


If (node1.Bounds.Right > width1) Then
width1 = node1.Bounds.Right
End If

node1 = node1.NextVisibleNode




'keep track of the original tree settings

Dim tempHeight As Integer
Dim tempWidth As Integer
Dim tempBorder As BorderStyle
Dim tempScrollable As Boolean
Dim selectedNode As New TreeNode

tempHeight = tvwLanguages.Height
tempWidth = tvwLanguages.Width
tempBorder = tvwLanguages.BorderStyle
tempScrollable = tvwLanguages.Scrollable
selectedNode = tvwLanguages.SelectedNode
'setup the tree to take the snapshot

Dim tempDock As DockStyle
tvwLanguages.SelectedNode = Nothing
tempDock = tvwLanguages.Dock
tvwLanguages.Height = Height + _scrollBarHeight
tvwLanguages.Width = Width + _scrollBarWidth
tvwLanguages.BorderStyle = BorderStyle.None
tvwLanguages.Dock = DockStyle.None
'get the image of the tree


Dim controlImage As Image = Nothing
Dim imageAttr As ToolboxBitmapAttribute = CType(attrCol(GetType(ToolboxBitmapAttribute)), true)

tvwLanguages.controlImage = imageAttr.GetImage(tvwLanguages.Handle, tvwLanguages.Width, tvwLanguages.Height)
' ''reset the tree to its original settings

tvwLanguages.BorderStyle = tempBorder
tvwLanguages.Width = tempWidth
tvwLanguages.Height = tempHeight
tvwLanguages.Dock = tempDock
tvwLanguages.Scrollable = tempScrollable
tvwLanguages.SelectedNode = selectedNode
''give the window time to update

Application.DoEvents()
End Sub


------------------------------------
this is the code I edit to vb2008....and
Dim controlImage As Image = Nothing
Dim imageAttr As ToolboxBitmapAttribute = CType(attrCol(GetType(ToolboxBitmapAttribute)), true)

tvwLanguages.controlImage = imageAttr.GetImage(tvwLanguages.Handle, tvwLanguages.Width, tvwLanguages.Height)
' ''reset the tree to its original settings

this part is getting wrong....
can someone help?

Also, what is the meaning oF Application.DoEvents() ??