Buton taşımak

Merhaba.
Örneğimdeki butona basılınca formdaki yeri üstten 1 cm soldan 1 cm uzaklıkta, boyutları eni 3 yüksekliği 1 olsun. Bu noktaya geldikten sonra tekrar basılırsa yeri üstten 2 cm soldan 2 cm uzaklıkta, boyutları eni 5 yüksekliği 2 olsun. İlgili kodlar için yardımcı olabilir misiniz?

Saygı ve selamlarımla.

Butonun tıklandığında olayına aşağıdaki kodları ekleyiniz.

If Me.Command0.Top = 1134 And Me.Command0.Left = 1134 Then

Me.Command0.Top = 567

Me.Command0.Left = 567

Me.Command0.Height = 567

Me.Command0.Width = 1701



Else



Me.Command0.Top = 1134

Me.Command0.Left = 1134

Me.Command0.Height = 1134

Me.Command0.Width = 2835

End If

Merhaba,

İncelermisiniz..

Bende tam yazayım dedim 2 mesaj gelmiş

If durum = 0 Then

            

        sol = Me.Command0.Left

        ust = Me.Command0.Top

        Me.Command0.Left = 1440

        Me.Command0.Top = 1440

        durum = 1

    

    Else

    

        Me.Command0.Left = sol

        Me.Command0.Top = Top

        durum = 0

    

    End If

Genel deklerasyonda :

Dim durum As Byte

Dim sol, ust As Integer

Bir konuya anında 3 cevap... Müthişsiniz...!

Hakikaten bu paylaşım sevincini kıskanıp eksikliğimden mahçup kaldım. Çok teşekkür ederim.
Aklıma takılan soru şu: "Me.Command0.Top = 1134" buradaki rakamı nasıl buluyorsunuz