Private Sub Cmd1çıkış_Click()
'Code thought up for no reason at all by VisualBlind
'No matter what height/width your form is, it will always
'shrink the form :)
'This would be great for a about windows after the user closes it
'you should put this in the form/unload procedure...

Do Until Form1.Height = 405 And Form1.Width = 1680
Form1.Height = Form1.Height - 1
Form1.Width = Form1.Width - 1
Loop
Unload Me
End Sub

Private Sub Form_Load()
Form1.Caption = "Form Move"
Form1.Height = 0
Form1.Width = 1680
Timer1.Interval = 200
Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()
On Error Resume Next
For x = 0 To Form1.Height + 2000
Form1.Height = x
Next x
For y = 100 To Form1.Width + 1500
Form1.Width = y
Next y
Timer1.Enabled = False

End Sub

Beğeniler: 0
Favoriler: 0
İzlenmeler: 927
favori
like
share
konan_2007 Tarih: 14.03.2007 15:48
ben bu programlama dilini öğrenmek istiyorum yani daha yeniyim. şimdi ben bu kodları nasıl program yapacam biraz bilgi verebilirmisiniz
soner_90 Tarih: 21.12.2006 17:38
bekirr Tarih: 14.08.2006 02:02
saolasın
sweast Tarih: 14.05.2006 01:35
tşkler
iskorpinx Tarih: 14.05.2006 01:13
eline saglik
can_0007 Tarih: 29.04.2006 11:14
ALP_ Tarih: 15.04.2006 17:06
teşekkürler