(07/01/2019, 20:05)haliliyas yazdı: 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

Yanıtın için teşekkür ederim. Bu çözümü ben de düşünmüştüm. Ancak anlamadığım kısım: Neden sanki ikinci bir nesne gibi gösteriyor. Yani ikinci bir yükleme gibi. Tabii tam öyle mi oluyor? Onu da bilmiyorum.