Rounded Corner Form di VB 6.0

Rounded Corner Form merupakan sebuah bentuk lengkungan di tepian form.
Jika pada properties form kita set borderstylenya menjadi None maka form hanya akan berbentuk kotak saja.
Untuk membuat lengkungan pada tepian form kita menggunakan beberapa fungsi windows api yaitu :
- SetWindowRgn
- CreateRoundRectRgn
- DeleteObject

Disini saya akan membuatnya dengan menggunakan visual basic6.0
langsung ke pembuatan projectnya saja...

Tulis listing berikut pada sebuah module :

Public Declare Function SetWindowRgn Lib _
"user32" (ByVal hwnd As Long, _
ByVal hRgn As Long, ByVal bRedraw As Long) As Long
Declare Function CreateRoundRectRgn Lib _
"gdi32.dll" (ByVal X1 As Long, ByVal Y1 As Long, _
ByVal X2 As Long, ByVal Y2 As Long, _
ByVal X3 As Long, ByVal Y3 As Long) As Long
Public Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long

Public Sub buatoval(Frm As Form, Optional ByVal Kurva As Double = 15)
Dim hRgn As Long
Dim X1 As Long, Y1 As Long
X1 = Frm.Width / Screen.TwipsPerPixelX
Y1 = Frm.Height / Screen.TwipsPerPixelY
hRgn = CreateRoundRectRgn(0, 0, X1, Y1, Kurva, Kurva)
SetWindowRgn Frm.hwnd, hRgn, True
DeleteObject hRgn
End Sub

lihat pada bagian berikut :

Optional ByVal Kurva As Double = 15

Angka 15 dapat anda ganti sesuai keinginan anda nilai tersebut yang akan menentukan seberapa dalam lengkungan form yang ingin anda buat.

Nah terakhir agar pada saat form diload form memiliki lengkungan kita panggil didalam event Form_Loadnya, tulis listing berikut pada form: