AccessTr.neT

Proje çalıştırıldığında form sol üst köşeden sağa ve aşağıya doğru kayarak açılıyor...

Eklenecek nesne; timer1
(Timer1'in Interval özelliğini 1000 yapıyoruz)♫

Kod:
Private Sub Form_Load()

    Form1.Height = 0

    Form1.Width = 0

    For i = 1 To 100

      Form1.Width = Form1.Width + i

      Form1.Height = Form1.Height + i

      Form1.Show

      Form1.Refresh

    Next i

End Sub

teşekkürler kardeş..

rica ederim, ne demek.

Saol kardeste denedım calısmıyor Lol

Ben denedim 2008 de çalışıyor teşekkürler..
Fakat 08 de Form1 yerlerini silip Me yazıyorsun Img-grin

malesef me yazdım yine çalışmadı.
Hata veriyor...
Private Sub Form_Load()
Me.Height = 0
Me.Width = 0
For I = 1 To 100
Me.Width = Me.Width + I
Me.Height = Me.Height + I
Me.Show
Me.Refresh
Next I
End Sub

chopper07

karaayhan

chopper07

qrantina

FeyzaTkn

akd