Visual Basic

Hallo gan apa kabar, mau minum apa ni ? Senang rasanya  menyapa Anda terlebih dahulu, ok sedikit saja basi basinya dan langsung kita buat form form alphablend/tranparant  dengan Visual Basic 6.0, Wah kuno dong !!! kan sekarang uda ad VB 2010, tak masalah gan kan semuanya versi tak luput dari Vb 6.0 yg artinya dasarnya emang sama. Ok next

Buka dulu Programnya…..........................sippp !
Masukkan 1 buah Form, 1 Timer,1 Module

Kode untuk Module dengan menggunakan fungsi API, lihat di bawah gan…

Option Explicit 'fungsi API
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 & _
color 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 aturtransparan(frm As Long, nilai As Integer)'pengaturan warna transparan
   On Error GoTo Err
   Dim attrib As Long
   attrib = GetWindowLong(frm, GWL_EXSTYLE)
   SetWindowLong frm, GWL_EXSTYLE, _
   attrib Or WS_EX_LAYERED
   SetLayeredWindowAttributes frm, RGB(255, 255, 0), nilai, LWA_ALPHA
   Exit Sub
Err:
   MsgBox Err.Description & " Source : " & Err.Source
End Sub

Dan untuk form1 Buatlah general variable lebih dulu...
Kode:
Option explicit
Dim Transp as integer
Dim  mulai as boolean  

Kemudian pada timer1 tulis kode seperti di bawah ini.
Kode:
Private Sub Timer1_Timer()
On Error Resume Next
If mulai Then
  Transp = Transp + 5
  If Transp > 255 Then Transp = 255: Timer1.Enabled = False
Else
  Transp = Transp - 5
  If Transp < 0 Then Transp = 0: End
End If
aturtransparant Form1.hwnd, Transp 'memanggil fungsi dari module untuk di jalankan di Form1
End Sub
form load Event pertama kali ketika app di jalankan dan langsung memulai perintah Mulai.
Private Sub Form_Load()
  mulai = True
End Sub
event dimana program di hentikan dan memanggil ulang perintah timer.
Private Sub Form_Unload(Cancel As Integer)
  Cancel = True: mulai = False
  Timer1.Enabled = True
End Sub
Simpan program dan jalankan/F5 lihat hasinya..............
kalau terdapat Bug coba periksa kembali kode yg agan tulis OK, semoga berhasil..............