Membuat Form Berbentuk Lingkaran/Elips

Berikut ini adalah cara bagaimana untuk membuat form berbentuk lingkaran pada form....
Langsung saja kita mulai:

• Buka VB 6.0 dan pilih StandarExe
• Pada Form1 di properties rubah BorderStyle menjadi 0 - None
• Masukkan Listing di bawah ini atau Copas Saja Biar Cepat,
  
   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 Form_Load()
  Dim lngRegion As Long
      Dim lngReturn As Long
      Dim lngFormWidth As Long
      Dim lngFormHeight As Long
    
      lngFormWidth = Me.Width / Screen.TwipsPerPixelX
      lngFormHeight = Me.Height / Screen.TwipsPerPixelY
      lngRegion = CreateEllipticRgn(0, 0, lngFormWidth, lngFormHeight)
      lngReturn = SetWindowRgn(Me.hWnd, lngRegion, True)
  End Sub
  
• Setelah selesai diketik atau paste maka coba jalankan dan lihat hasilnya

Selamat bekerja dan semoga berhasil

HusniKaimuddin