Dim desktopSize As Size = _
  System.Windows.Forms.SystemInformation.PrimaryMonitorSize
Dim height1 As String = desktopSize.Height
Dim width1 As String = desktopSize.Width

Private Sub Form1_SizeChanged(sender As Object, e As EventArgs) Handles _
  MyBase.SizeChanged
 
        trv1.Width = Me.Width / 2 - 23
        trv2.Width = Me.Width / 2 - 23
        trv2.Location = New Point((Me.Width / 2 - 4), 75)
        TextBox2.Location = New Point((Me.Width / 2 - 4), 27)
        Label2.Location = New Point((Me.Width / 2 - 6), 55)
        Button8.Location = New Point((Me.Width / 2 - 66), 51)
        Button6.Location = New Point((Me.Width / 2 - 127), 51)
        Button1.Location = New Point((Me.Width / 2 - 188), 51)
        Button2.Location = New Point((Me.Width / 2 - 66), 27)
        Button7.Location = New Point((Me.Width - 83), 51)
        Button5.Location = New Point((Me.Width - 144), 51)
        Button3.Location = New Point((Me.Width - 83), 27)
        Button4.Location = New Point((Me.Width - 103), Me.Height - 71)
        TextBox1.Width = Me.Width / 2 - 84
        TextBox2.Width = Me.Width / 2 - 84
        TextBox3.Width = Me.Width - 40
        TextBox3.Height = Me.Height - 672
 
    End Sub

Private Function GetLevel0Node(ByVal tn As TreeNode) As TreeNode
   Dim ret As TreeNode = tn
   While ret.Parent IsNot Nothing
      ret = ret.Parent
   End While
   Return ret
End Function