Membuat Form Transparan

Kali ini ane mau bagi2 cara Membuat Form Transaparan pada VB 6 yang kurang lebih tampilannya seperti gambar di bawah. Oke untuk yang mau tau caranya klik pada tombol 'read more' atau 'baca selengkapnya'

kurang lebih seperti ini tampilannya

oke pertama anda harus menyiapkan beberapa component berikut:
              1. Form biasa yang belum di edit
              2. Tambahkan Textbox
ya kurang lebih seperti gambar di atas. Kenapa harus menambahkan Textbox? karena saya bukan hanya memberi cara membuat form transparan tetapi juga sedikit trik cara membut Huruf Kapital pada awal tulisan di object Textbox. Oke langsung aja salin script di bawah:


Option Explicit

Private Const WS_EX_LAYERED = &H80000
Private Const GWL_EXSTYLE = (-20)
Private Const LWA_COLORKEY = &H1
Private Const LWA_ALPHA = &H2

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crColor As Long, ByVal nAlpha As Byte, ByVal dwFlags As Long) As Long

Private Sub Form_Load()
Call SetWindowLong(Me.hwnd, GWL_EXSTYLE, GetWindowLong(Me.hwnd, GWL_EXSTYLE) Or WS_EX_LAYERED)
Call SetLayeredWindowAttributes(Me.hwnd, RGB(255, 0, 255), 210, LWA_ALPHA Or LWA_COLORKEY)
End Sub

Public Function AwalKalimatKapital(strKalimat As String)
Dim Temp1 As String, Temp2 As String
Dim Lokasi As Integer, i As Integer
Dim huruf As String * 1
Temp1$ = LCase(strKalimat) 'Kecilkan dulu semua
For i% = 1 To Len(Temp1$)
huruf = Chr(Asc(Mid(strKalimat, i%, 1)))
If huruf = "." Then
Lokasi% = i% + 2
End If
If i% = 1 Or i% = Lokasi% Then
Temp2$ = Temp2$ + UCase(Chr(Asc(Mid(Temp1$, i%, 1))))
Else
Temp2$ = Temp2$ + LCase(Chr(Asc(Mid(Temp1$, i%, 1))))
End If
Next i
AwalKalimatKapital = Temp2$
End Function

Private Sub Text1_Change()
Dim posisi As Integer
posisi = Text1.SelStart
Text1.Text = AwalKalimatKapital(Text1.Text)
Text1.SelStart = posisi
End Sub


Semua script di atas ditulis di Form1 tidak ada yang ditulis di Module. Mohon komentarnya jika ada kekurangan dan selamat mencoba. Untuk yang malas menyalin silahkan masuk ke sini untuk mendownload programnya.