hocam elinize sağlık bu da çok güzel olmuş ama eklediğim dosyakine göre farklı bir mantıkta çalışıyor.

size zahmet eklediğim dosyadaki Kutu25 ile Çizgi1'i 1veya2 cm sağa kaydırdıktan sonra kodu düzenleyebilirseniz çok sevinirim.

1 cm=567 twipstir yani sınırı 1-2 cm kaydırmak için belirtilen değere cm*567 eklemelisiniz
1 cm için 567
2 cm için 2*567 eklemelisiniz
Me.Kutu25.Left = 3525 + 567 '1 cm=567 twips
Me.Çizgi1.Left = 3628 + 567

---

If Kutu25.Left > 3000 Then

    

    Me.Metin22.SetFocus

    Me.Komut6.Visible = False

    Me.Resim0.Visible = True

    Me.Resim29.Visible = False

    Me.Etiket13.Visible = False

    Me.Açılan_Kutu9.Visible = False

    Me.Kutu25.Left = 5

    Me.Çizgi1.Left = 100



Else

    Me.Metin22.SetFocus

    Me.Komut6.Visible = True

    Me.Resim29.Visible = True

    Me.Resim0.Visible = False

    Me.Etiket13.Visible = True

    Me.Açılan_Kutu9.Visible = True

    Me.Kutu25.Left = 3525 + 567 '1 cm=567 twips

    Me.Çizgi1.Left = 3628 + 567



End If

tıklama kodunu aşağıdaki kodla değiştirip dener misiniz?

Dim Dgr As Boolean ' yada Integer



If Kutu25.Left > 3000 Then Dgr = 0 else Dgr = -1



Me.Metin22.SetFocus

Me.Komut6.Visible = Dgr

Me.Resim29.Visible = Dgr

Me.Resim0.Visible = 1 + Dgr

Me.Etiket13.Visible = Dgr

Me.Açılan_Kutu9.Visible = Dgr

Me.Kutu25.Left = 5 - Dgr * (3520 + 567)

Me.Çizgi1.Left = 100 - Dgr * (3528 + 567)