CARA BUAT FORM TRANSPARAN DI VISUAL BASIC 6

1.  Buka program Visual Basic anda dan mulai dengan form baru
2. Karna kita akan memanipulasi form, maka kita atur dulu ropertis formnya, berikut dibawah ini penjelasan propertisnya jangan terlewatkan karena ini termasuk hal yang penting untuk membuat program berjalan sebagaimana mestinya.
• Form
• Name = Form1 (Anda bisa merubah nama form tetapi nanti dalam listing event FORM_ACTIVE nya harus sesuai dengan nama form anda ya, sementara ikuti dulu seperti yang saya jelaskan nama formnya Form1)
• BackColor = &H00FF0000& (warna background harus warna Biru)
• BorderStyle = 0-none (Hilangkan border formnya)
• StartUpPosition = 2-CenterScreen (Supaya form berada ditengah layar)
• Image


• Name = image1
• Picture = Pilih gambar sesuai dengan keinginan anda, gambar dianjurkan berformat .GIF karna gambar berformat .GIF biasanya tanpa warna latar belakang/transfaran
• 
•  
• Double klik form dan tempatkan pointer pada bagian Declaration (bagian paling atas pada editor kode)
•  Masukan kode dibawah pada bagian paling atas (Declaration)
• Option Explicit
  Dim color As Long, flag As Byte
• Masukan kode dibawah ini pada bagian form_Activate()
• Private Sub Form_Activate()
      On Error GoTo err
      color = vbBlue
      flag = flag Or LWA_COLORKEY
      SetTransparan1 Form1.hwnd, color, 0, flag
  
      Exit Sub
  err: MsgBox err.Description & " Source : " & err.Source
  End Sub
• Buat modul baru dengan klik kanan pada box project lalu pilih Add - module
• Masukan listing kode dibawah ini pada modul
• Option Explicit
  Public Const LWA_COLORKEY = 1
  Public Const LWA_ALPHA = 2
  Public Const LWA_BOTH = 3
  Public Const WS_EX_LAYERED = &H80000
  Public Const GWL_EXSTYLE = -20
  Public Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal warna As Long, ByVal x As Byte, ByVal alpha As Long) As Boolean
  Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
  Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
  
  Sub SetTransparan1(frm As Long, warna As Long, nTrans As Integer, flag As Byte)
      On Error GoTo err
  
      Dim attrib As Long
      attrib = GetWindowLong(frm, GWL_EXSTYLE)
      SetWindowLong frm, GWL_EXSTYLE, attrib Or WS_EX_LAYERED
      SetLayeredWindowAttributes frm, warna, nTrans, flag
      Exit Sub
  err:
      MsgBox err.Description & " Source : " & err.Source
  End Sub
• Jalankan dengan menekan tombol F5 pada keyboard anda, Bagaimana hasilnya...? anda akan lihat sendiri dan bangga atas program anda. Selamat mencoba
•  selesai