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)