Buat Form Bulat di Visual Basic 6

Tidak terasa setelah hampir setahun bertugas di daerah pedalaman Papua tanpa listrik, tanpa sinyal HP n jauh dari keramain akhirnya sekarang bisa kembali lagi ke peradaban... he he he .... 

Pada postingan kali ini saya akan sedikit berbagi kode sederhana di VB6. Kalau selama ini kebanyakan program yang dibuat di VB6 berbentuk persegi atau persegi panjang maka mungkin tidak ada salahnya kalau kita coba buat yang berbentuk bulat seperti program sederhana di bawah ini :

Berikut ini langkah-langkahnya :
1. Buka VB6
2. Atur Border Style di Properties Form1 seperti ini :

3. Dalam contoh ini back color dari Form1 saya ubah menjadi warna hitam supaya mudah untuk terlihat nantinya:

4. Berikut ini kode yang perlu anda masukkan ke dalam Form1

Private Declare Function SetWindowRgn Lib "User32" (ByVal created As Long, ByVal by As Long, ByVal Rudy As Long) As Long
Private Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Sub ReleaseCapture Lib "User32" ()
Const WM_NCLBUTTONDOWN = &HA1
Const HTCAPTION = 2

'kode untuk menggerakkan Form menggunakan Mouse
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
   Dim lngReturnValue As Long
   If Button = 1 Then
      Call ReleaseCapture
      lngReturnValue = SendMessage(Form1.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&)
  End If
End Sub

'kode untuk membuat Form1 menjadi bulat
Private Sub Form_Load()
    Dim Chelpot As Long
    Dim Rudy As Long
 
     Chelpot = CreateEllipticRgn(0, 0, 400, 400)
    Rudy = SetWindowRgn(Me.hWnd, Chelpot, True)
End Sub

5. Tambah  sebuah Module dan masukkan kode di bawah ini :

Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _
(ByVal lpCommandString As String, ByVal lpReturnString As String, _
ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

6. Berikut tampilan program ketika dijalankan:

7. Selesai dan selamat mencoba ya ^_^  ... Anda Pasti BISA !!!