You will need to add the following code in sub ChangeToVga:
Code:
Case "TabControl.TabControl"
Control(Controls(i),TabControl).Left = 2 * Control(Controls(i),TabControl).Left
Control(Controls(i),TabControl).Top = 2 * Control(Controls(i),TabControl).Top
Control(Controls(i),TabControl).Height = 2 * Control(Controls(i),TabControl).Height
Control(Controls(i),TabControl).Width = 2 * Control(Controls(i),TabControl).Width