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)
tıklama kodunu aşağıdaki kodla değiştirip dener misiniz?