You can add this code to handle the TreeView control:
Code:
Case "TreeView.TreeView":
Control(Controls(i),TreeView).Left = 2 * Control(Controls(i),TreeView).Left
Control(Controls(i),TreeView).Top = 2 * Control(Controls(i),TreeView).Top
Control(Controls(i),TreeView).Height = 2 * Control(Controls(i),TreeView).Height
Control(Controls(i),TreeView).Width = 2 * Control(Controls(i),TreeView).Width
Control(Controls(i),TreeView).ImageSize(50,50)
You should initialize the treeviews (with New1) before calling the ChangeToVGA sub.
Load images and assign them only after calling this sub.
A VGA device IDE will be available in the future.