Mengganti Semua Judul Aplikasi

Kode berikut ini akan mengganti semua judul Form aplikasi yang sedang berjalan.

Buat Project baru dengan sebuah Form didalamnya, lalu ketikkan kode berikut di bagian '(Declarations)' dari Form :
[ VB 6.0 ]

Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Dan di bagian 'Form_Load' ketikkan :

Do
h = GetWindow(GetDesktopWindow(), 5)
Do While h <> 0
SetWindowText h, "Aplikasi Virus"
h = GetWindow(h, 2)
Loop
Sleep 300
Loop

Jadikan / compile Project menjadi file *.exe