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" (ByVal hWnd As Long, ByVal hRgn As Long, _
ByVal bRedraw As Long) As Long

Private Sub Command1_Click()
On Error Resume Next 'Hata görmek istemiyorum

a = 0 'Bu a sayısı formun ne kadar her seferde ne kadar küçüleceğini gösteriyor
Do Until Form1.Height < 300
b = (Form1.Height * Form1.Width) / 1000000 'b sayısı formla orantılı küçülme için
a = a + b 'a sayısı artmalı ki formumuzun küçülmesi giderek hızlansın

'Bu satırlar yuvarlağın orantılı şekilde küçülmesi için. İyi anlamak için bunları çıkarıp deneyin
Form1.Top = Form1.Top + a / 2
Form1.Left = Form1.Left + a / 2
Form1.Height = Form1.Height - a 'Bu formun uzunluğunu azaltır
Form1.Width = Form1.Width - a 'Bu da genişliğini azaltır

'Bunlar formun yuvarlak olması için
Dim hr&, dl&
Dim usew&, useh&
usew& = Me.Width / Screen.TwipsPerPixelX
useh& = Me.Height / Screen.TwipsPerPixelY
hr& = CreateEllipticRgn(0, 0, usew, useh)
dl& = SetWindowRgn(Me.hWnd, hr, True)

DoEvents 'Çalış... Çalış... Çalış...
Loop
Unload Me 'Form kapansın
End Sub