buton yordamlarını aşağıdaki kodlarla değiştirip dener misiniz

Private Sub Komut8_Click()

Dim x, y As Long

x = Me.TreeView0.Top

y = Me.TreeView0.Left

    TreeView0.Enabled = True

    TreeView0.Left = y

    TreeView0.Top = x

End Sub

Private Sub Komut9_Click()

    Dim x, y As Long

x = Me.TreeView0.Top

y = Me.TreeView0.Left

    TreeView0.Enabled = False

    TreeView0.Left = y

    TreeView0.Top = x

End Sub