ilk önce forma bi command buton ekleyin(adı command1 olsun) sonra kodları ekleyin 'bunlar formun declare kısmına gelcek Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, _ ByVal X2 As Long, ByVal Y2 As Long) As Long Private Declare Function SetWindowRgn Lib "user32" As Long Private Sub command1_Click On Error Resume Next a = 0 Do Until form1. Height < 300 b = (form1. Height form1. Width) / 1000000000 için a = a + b form1. Top = form1. Top + a / 2 form1. Height = form1. Height - a DoEvents Loop Unload Me End Sub

Daha Basit Ve Benzer Bir şekilde Kapanış Kod: Private Sub Command1_Click For kapat = 0 To 200 Form1. Height = Val(Form1. Height) - 100 Form1. Top = Val(Form1. Top) + 100 Next kapat Close

Declare kısmındakilere ihtiyaç yok. ayrıca a = 0 Do Until form1. Height < 300 b = (form1. Height form1. Width) / 1000000000 a = a + b şeklinde uygulanmalı. Güzel bir kapanış teşekkürler.

bunları niye ekliosun ki kullanmıosun 'bunlar formun declare kısmına gelcek Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, _ ByVal X2 As Long, ByVal Y2 As Long) As Long Private Declare Function SetWindowRgn Lib "user32" As Long