Cara Membuat Form VB Menjadi Lingkaran

Bagi sobat-sobat yang ingin membuat form dalam Visual Basic 6.0 menjadi bentuk lingkaran tentu saja tidak sulit, taukah kamu ? Sobat - sobat tinggal mencopy scribnny yang ada dibawah 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, 500, 500), True 'Pengaturan Agar Menjadi Lingkaran

End Sub

'**********************************************************************************

Setelah mencopy scribnya silahkan taruh pada form yang ingin dibuat bentuk lingkaran.

Thank you, join always.