MEMBUAT FOEM BULAT VB6

Source code berikut untuk membuat form berbentuk ellips/bulat pada Visual Basic dengan hanya
beberapa baris kode.

Buat 1 project dengan :

1 Form
1 Module

Copy source code berikut pada Module :

Public Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long,_
ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Public Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long,_
ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Private Sub Form_Load()
SetWindowRgn hWnd, CreateEllipticRgn(0, 0, 300, 200), True
End Sub