Aplikasi ini menunjukkan trik bagaimana membuat form tidak lagi berbentuk kotak tapi
bisa berbentuk lingkaran, oval dan sebagainya. Buat sebuah form :

Setting objeknya:
Form1= BackColor &H00FF0000& , = BorderStyle 0-None (Ini Seting Untuk Properti
CommandButton1 = Style 1-Graphical , = BackColor &H00C0FFFF& = Caption OK (Ini Seting Untuk Properti)

Setelah itu ketik procedure di bawah ini:

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 Boolean) As Long
Private Sub Command1_Click()
Unload Me
End Sub
Private Sub Form_Load()
SetWindowRgn hWnd, CreateEllipticRgn(10, 10, 300, 300), True 'Pengaturan Agar Menjadi Lingkaran
End Sub

'Kemudian run form tersebut maka akan muncul form yang berbentuk lingkaran.

Ceridit: Ghery
NB bukan berarti bisa C&P sepuas nya Harus Da Ceridit
[You must be registered and logged in to see this image.]