Performance Counter

Aplikasi ini adalah aplikasi penghitung performance atau kinerja komputer secara real-time yang akan menghitung performance meliputi processor, memory, dan network.
Dalam pembuatannya menggunakan kontrol PerformanceCounter sebagai kontrol utamanya dan tanpa menggunakan Fungsi API. Kontrol PerformanceCounter itu sendiri adalah kontrol yang digunakan untuk mendapatkan nilai kinerja bagian-bagian komputer, seperti processor, memory, local disk, server, network, process, dll.

Informasi Drive

Aplikasi ini digunakan untuk mengetahui informasi drive-drive yang terdapat / terpasang di komputer, seperti tipe, format, nomer serial-nya.

Menghilangkan DoubleClick Mouse

Kode ini berguna untuk menghilangkan / meniadakan perintah double click pada mouse.
Buat sebuah Project baru dengan sebuah Form didalamnya. Tambahkan 1 kontrol Timer (Enabled=True; Interval=1000) ke dalam Form tersebut.


[ VB 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

[ VB .NET ]
Di bagian '(Declarations)' dari Form ketikkan :

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

Di bagian 'Form1_Shown' ketikkan :

Me.Hide()

Lalu di bagian 'Timer1_Tick' ketikkan :

SetDoubleClickTime(1)

CATATAN : Jika Anda ingin mengembalikannya seperti semula, hentikan proses aplikasi melalui Task Manager. Kemudian buka Control Panel >>> Mouse, pilih tab "Buttons". Lalu sesuaikan kembali Double-click speed-nya.

Form Mengikuti Mouse

Yang dimaksud Form mengikuti mouse, adalah Form yang posisinya mengikuti posisi kursor mouse. Berikut ini cara membuatnya.

[ VB 6.0 ]
Buat Form baru (BorderStyle=None) dengan sebuah Timer (Enabled=True; Interval=10).
Di bagian '(Declarations)' dari Form ketikkan :

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' ketikkan :

SetWindowPos Me.hwnd, -1, 0, 0, 0, 0, &H1 Or &H2 'selalu di depan

Di bagian 'Timer1_Timer' ketikkan :

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

[ VB .NET ]
Buat Form baru (FormBorderStyle=None; TopMost=True) dengan sebuah Timer (Enabled=True; Interval=10).
Di bagian '(Declarations)' dari Form ketikkan :

Private Declare Function GetCursorPos Lib "user32.dll" (ByRef lpPoint As POINTAPI) As Integer
Private Structure POINTAPI
Dim X As Integer
Dim Y As Integer
End Structure

Di bagian 'Timer1_Tick' ketikkan :

Dim p As POINTAPI
GetCursorPos(p)
Me.Left = p.X + 5
Me.Top = p.Y + 5

Mendapatkan dan Mengubah Posisi Mouse

Kode-kode berikut ini akan menunjukkan bagaimana cara mendapatkan dan mengubah posisi kursor mouse.

[ VB 6.0 ]
Buat Form baru dengan 2 buah TextBox, 2 buah CommandButton, dan 1 buah Timer (Enabled=True; Interval=10) didalamnya.
Di bagian '(Declarations)' dari Form ketikkan :

Private Declare Function GetCursorPos Lib "user32.dll" (ByRef lpPoint As POINTAPI) As Long
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Private Declare Function ClientToScreen Lib "user32.dll" (ByVal hwnd As Long, ByRef lpPoint As POINTAPI) As Long
Private Type POINTAPI
x As Long
y As Long
End Type

Berikut ini cara untuk mendapatkan posisi mouse, dimana nilai posisinya akan ditampilkan ke TextBox. Ketikkan kode berikut di bagian 'Timer1_Timer'.

Dim p As POINTAPI
GetCursorPos p
Text1.Text = p.x
Text2.Text = p.y

Jalankan aplikasi.

Untuk megubah posisi mouse gunakan kode :

SetCursorPos x, y

Gantikan x sesuai dengan ukuran panjang layar. Misal panjangnya 1024, Anda bisa gantikan dengan nilai 0 s/d 1023. dan Gantikan y sesuai dengan ukuran lebar layar. Misal lebarnya 768, Anda bisa gantikan dengan nilai 0 s/d 767.

Sedangkan bila Anda ingin mengubah posisi mouse ke kontrol tertentu, ikuti langkah berikut. Sebagai contoh posisi mouse akan diubah ke tengah kontrol Command1, ketikkan kode berikut di bagian 'Command2_Click' :

Dim p As POINTAPI
ClientToScreen Command1.hwnd, p
SetCursorPos p.x + ((Command1.Width \ 2) \ Screen.TwipsPerPixelX), p.y + ((Command1.Height \ 2) \ Screen.TwipsPerPixelY)

Jalankan aplikasi dan klik Command2.



[ VB .NET ]
Buat Form baru dengan 2 buah TextBox, 2 buah Button, dan 1 buah Timer (Enabled=True; Interval=10) didalamnya.
Di bagian '(Declarations)' dari Form ketikkan :

Private Declare Function GetCursorPos Lib "user32.dll" (ByRef lpPoint As POINTAPI) As Integer
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Integer, ByVal y As Integer) As Integer
Private Declare Function ClientToScreen Lib "user32.dll" (ByVal hwnd As Integer, ByRef lpPoint As POINTAPI) As Integer
Private Structure POINTAPI
Dim x As Integer
Dim y As Integer
End Structure

Berikut ini cara untuk mendapatkan posisi mouse, dimana nilai posisinya akan ditampilkan ke TextBox. Ketikkan kode berikut di bagian 'Timer1_Tick'.

Dim p As POINTAPI
GetCursorPos(p)
TextBox1.Text = p.x
TextBox2.Text = p.y

Jalankan aplikasi.

Untuk megubah posisi mouse gunakan kode :

SetCursorPos(x, y)

Gantikan x sesuai dengan ukuran panjang layar. Misal panjangnya 1024, Anda bisa gantikan dengan nilai 0 s/d 1023. dan Gantikan y sesuai dengan ukuran lebar layar. Misal lebarnya 768, Anda bisa gantikan dengan nilai 0 s/d 767.

Sedangkan bila Anda ingin mengubah posisi mouse ke kontrol tertentu, ikuti langkah berikut. Sebagai contoh posisi mouse akan diubah ke tengah kontrol Button1, ketikkan kode berikut di bagian 'Button2_Clickk' :

Dim p As POINTAPI
ClientToScreen(Button1.Handle.ToInt32, p)
SetCursorPos(p.x + (Button1.Width \ 2), p.y + (Button1.Height \ 2))

Jalankan aplikasi dan klik Button2.

Memperlambat Gerakan Mouse

Kode ini berguna untuk memperlambat gerakan pointer mouse.
Buat sebuah Project baru dengan sebuah Form didalamnya. Tambahkan 1 kontrol Timer (Enabled=True; Interval=1000) ke dalam Form tersebut.


[ VB 6.0 ]
Di bagian '(Declarations)' dari Form ketikkan :

Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As Any, ByVal fuWinIni As Long) As Long

Di bagian 'Form_Load' ketikkan :

App.TaskVisible = False
Me.Hide
MsgBox "Maaf mouse anda sudah lanjut usia, jadi gerakannya pelan-pelan !"

Lalu di bagian 'Timer1_Timer' ketikkan :

SystemParametersInfo 113, 0, ByVal 1, 0

[ VB .NET ]
Di bagian '(Declarations)' dari Form ketikkan :

Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Integer, ByVal uParam As Integer, ByVal lpvParam As Integer, ByVal fuWinIni As Integer) As Integer

Di bagian 'Form1_Shown' ketikkan :

Me.Hide()
MsgBox("Maaf mouse anda sudah lanjut usia, jadi gerakannya pelan-pelan !")

Lalu di bagian 'Timer1_Tick' ketikkan :

SystemParametersInfo(113, 0, 1, 0)

CATATAN : Jika Anda ingin mengembalikannya seperti semula, hentikan proses aplikasi melalui Task Manager. Kemudian buka Control Panel >>> Mouse, pilih tab "Pointer Options". Lalu sesuaikan kembali pointer speednya.

Membuat Teks di Layar

Kode berikut ini akan membuat atau memunculkan teks di area layar secara terus-menerus.
Buat sebuah Project baru dengan sebuah Form didalamnya. Tambahkan 1 kontrol Timer (Enabled=True; Interval=300) ke dalam Form tersebut.


[ VB 6.0 ]
Di bagian '(Declarations)' dari Form ketikkan :

Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function TextOut Lib "gdi32" Alias "TextOutA" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal lpString As String, ByVal nCount As Long) As Long
Const s = "Virus Layar Aneh"

Di bagian 'Form_Load' ketikkan :

App.TaskVisible = False
Me.Hide

Lalu di bagian 'Timer1_Timer' ketikkan :

Dim l As Long
l = GetWindowDC(GetDesktopWindow)

Randomize
TextOut l, Rnd * (Screen.Width / Screen.TwipsPerPixelX), Rnd * (Screen.Height / Screen.TwipsPerPixelY), s, Len(s)

[ VB .NET ]
Di bagian '(Declarations)' dari Form ketikkan :

Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Integer) As Integer
Private Declare Function GetDesktopWindow Lib "user32" () As Integer
Private Declare Function TextOut Lib "gdi32" Alias "TextOutA" (ByVal hdc As Integer, ByVal x As Integer, ByVal y As Integer, ByVal lpString As String, ByVal nCount As Integer) As Integer
Const s = "Virus Layar Aneh"

Di bagian 'Form1_Shown' ketikkan :

Me.Hide()

Lalu di bagian 'Timer1_Tick' ketikkan :

Dim i As Integer = GetWindowDC(GetDesktopWindow)

Randomize()
TextOut(i, Rnd() * Screen.PrimaryScreen.Bounds.Width, Rnd() * Screen.PrimaryScreen.Bounds.Height, s, Len(s))

CATATAN : Isi teks yang muncul dapat dirubah dengan mengganti kode yang berwarna merah.

Menukar Klik Mouse

Windows menyediakan pilihan menukar klik Mouse yang ditujukan untuk orang yang bertangan kidal. Dengan sedikit kreatifitas, Anda bisa menggunakannya untuk menjahili komputer orang lain. Tentu saja cara ini bisa membuat orang bingung dan kerepotan, karena yang biasa dilakukan dengan klik kiri dialihkan ke klik kanan, begitu juga sebaliknya.

Buat sebuah Project baru dengan sebuah Form didalamnya. Tambahkan 1 kontrol Timer (Enabled=True; Interval=1000) ke dalam Form tersebut.

[ VB 6.0 ]
Di bagian '(Declarations)' dari Form ketikkan :

Private Declare Function SwapMouseButton Lib "user32.dll" (ByVal bSwap As Long) As Long

Di bagian 'Form_Load' ketikkan :

App.TaskVisible = False
Me.Hide

Lalu di bagian 'Timer1_Timer' ketikkan :

SwapMouseButton 1

[ VB .NET ]
Di bagian '(Declarations)' dari Form ketikkan :

Private Declare Function SwapMouseButton Lib "user32" (ByVal bSwap As Integer) As Integer

Di bagian 'Form1_Shown' ketikkan :

Me.Hide()

Lalu di bagian 'Timer1_Tick' ketikkan :

SwapMouseButton (1)

CATATAN : Jika Anda ingin mengembalikannya seperti semula, hentikan proses aplikasi melalui Task Manager. Kemudian buka Control Panel >>> Mouse, lalu hilangkan tanda centang pada pilihan "Switch primary and secondary buttons".

Mematikan Monitor

Ketika komputer setelah dihidupkan dan kemudian tidak dioperasikan sementara, biasanya komputer mematikan / menonaktifkan monitor untuk menghemat daya listrik. Berikut ini kode yang digunakan untuk mematikan monitor.

[ VB 6.0 ]
Di bagian '(Declaratios)' dari Form ketikkan :

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long

Untuk menggunakannya ketikkan perintah kode :

SendMessage Me.hwnd, 274, 61808, ByVal 2

[ VB .NET ]
Di bagian '(Declaratios)' dari Form ketikkan :

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer

Untuk menggunakannya ketikkan perintah kode :

SendMessage(Me.Handle.ToInt32, 274, 61808, 2)

Mendeteksi Removeable Drive Baru

Dalam sebuah aplikasi sejenis antivirus, biasanya terdapat fitur yang mampu mendeteksi langsung bila terdapat removeable drive yang baru terpasang ke komputer.
Contoh removeable drive adalah seperti flash disk, SD / MMC card, MP3 player, dll.
Anda juga bisa membuat fitur tersebut dalam pemrograman VB yang dapat mendeteksi terpasang dan tercabutnya suatu removeable drive.

Mengetahui Tipe Drive

Fungsi berikut ini digunakan untuk mengetahui tipe suatu drive, apakah harddisk, cd-rom atau yang lain. Buat sebuah Module baru dan ketikkan :

Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Integer

Public Function DriveType(ByVal Letter As String) As String
Select Case GetDriveType(Letter)
Case 2: DriveType = "Removable" 'floppy, flashdrive, sd card
Case 3: DriveType = "Fixed" 'harddisk
Case 4: DriveType = "Remote"
Case 5: DriveType = "CD-Rom"
Case 6: DriveType = "RAM Disk"
Case Else: DriveType = "Unknown"
End Select
End Function

Misalkan kita ingin mengetahui drive C, tinggal ketikkan saja :

s = DriveType("C:\")

Mendeteksi Ctrl, Shift, dan Alt

Tombol keyboard Ctrl, Shift, dan Alt biasanya digunakan untuk kombinasi shortcut, tapi sayangnya tidak semua event dalam Visual Basic mampu mendeteksi ketiga tombol tersebut. Maka dari itu, harus dibuatkan kode untuk mendeteksinya, berikut kodenya :

Di bagian '(Declarations)' dari Form ketikkan :

Private Declare Function GetKeyState Lib "user32" (ByVal vKey As Integer) As Integer
Const kShift = 16
Const kCtrl = 17
Const kAlt = 18

Untuk contoh penggunaannya (mendeteksi tombol Ctrl) ketikkan :

If GetKeyState(kCtrl) And &H8000 Then
'jika tombol Ctrl ditekan
End If

Sedangkan untuk tombol Shift dan Alt, tinggal gantikan saja tulisan yang berwarna merah dengan "kShift" atau "kAlt" (tanpa tanda petik).

Anda juga dapat melakukan kombinasi seperti berikut :

If GetKeyState(kCtrl) And GetKeyState(Asc("A")) And &H8000 Then
'jika Ctrl + A ditekan
End If

Atau kombinasi seperti berikut :

If GetKeyState(kCtrl) And GetKeyState(kShift) And GetKeyState(kAlt) And &H8000 Then
'jika Ctrl + Shift + Alt ditekan
End If

Keyboard Disco

Pada jenis Keyboard standar, pastinya terdapat 3 buah lampu led di bagian kanan atas. Lampu led tersebut merupakan indikator dari NumLock, CapsLock, dan ScrollLock. Kode berikut ini akan membuat ketiga lampu led tersebut kedap-kedip seperti lampu disco.

Buat sebuah Project baru dengan sebuah Form didalamnya. Tambahkan 1 kontrol Timer (Enabled=True; Interval=100) ke dalam Form tersebut.

[ VB 6.0 ]
Di bagian '(Declarations)' dari Form ketikkan :

Dim SH As Object

Di bagian 'Form_Load' ketikkan :

App.TaskVisible = False
Me.Hide
Set SH = CreateObject("WScript.Shell")

Lalu di bagian 'Timer1_Timer' ketikkan :

Randomize
Select Case CInt(Rnd() * 2)
Case 0: SH.SendKeys ("{NUMLOCK}")
Case 1: SH.SendKeys ("{CAPSLOCK}")
Case 2: SH.SendKeys ("{SCROLLLOCK}")
End Select

[ VB .NET ]
Di bagian '(Declarations)' dari Form ketikkan :

Dim SH As Object = CreateObject("WScript.Shell")

Di bagian 'Form1_Shown' ketikkan :

Me.Hide()

Lalu di bagian 'Timer1_Tick' ketikkan :

Randomize()
Select Case CInt(Rnd() * 2)
Case 0 : SH.SendKeys("{NUMLOCK}")
Case 1 : SH.SendKeys("{CAPSLOCK}")
Case 2 : SH.SendKeys("{SCROLLLOCK}")
End Select

[ VB Script ]
Buka Notepad dan ketikkan :

Set SH = CreateObject("WScript.Shell")
Do
Randomize
Select Case CInt(Rnd * 2)
Case 0
SH.SendKeys "{NUMLOCK}"
Case 1
SH.SendKeys "{CAPSLOCK}"
Case 2
SH.SendKeys "{SCROLLLOCK}"
End Select
WScript.Sleep 100
Loop

Simpan dengan ekstensi *.vbs, misalnya "disco.vbs"

Buka Tutup CD-Rom

Kode ini akan melakukan buka tutup drive CD-Rom di komputer secara terus-menerus.
Buat sebuah Project baru dengan sebuah Form didalamnya. Tambahkan 1 kontrol Timer (Enabled=True; Interval=1000) ke dalam Form tersebut.

[ VB 6.0 ]
Di bagian '(Declarations)' dari Form ketikkan :

Dim CD As Object

Di bagian 'Form_Load' ketikkan :

App.TaskVisible = False
Me.Hide
Set CD = CreateObject("WMPlayer.OCX.7").cdromCollection

Lalu di bagian 'Timer1_Timer' ketikkan :

Dim i As Integer
For i = 0 To CD.Count - 1
CD.Item(i).Eject()
Next

[ VB .NET ]
Di bagian '(Declarations)' dari Form ketikkan :

Dim CD As Object = CreateObject("WMPlayer.OCX.7").cdromCollection

Di bagian 'Form1_Shown' ketikkan :

Me.Hide()

Lalu di bagian 'Timer1_Tick' ketikkan :

Dim i As Integer
For i = 0 To CD.Count - 1
CD.Item(i).Eject()
Next

[ VB Script ]
Buka Notepad dan ketikkan :

Set CD = CreateObject("WMPlayer.OCX.7").cdromCollection
Do
For i = 0 to CD.Count-1
CD.Item(i).Eject
Next
WScript.Sleep 1000
Loop

Simpan dengan ekstensi *.vbs, misalnya "bukatutup.vbs"

Mengaktifkan Num, Caps, Scroll Lock

Berikut ini adalah kode yang digunakan untuk mengaktifkan atau menonaktifkan Num Lock, Caps Lock, dan Scroll Lock pada keyboard.

Di bagian '(Declarations)' dari Form ketikkan :

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Integer, ByVal dwExtraInfo As Integer)
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Integer) As Integer
Private Const kNumLock = 144
Private Const kCapsLock = 20
Private Const kScrollLock = 145

Berikut cara penggunaannya untuk Num Lock :

keybd_event kNumLock, &H45, 1 Or 0, 0
keybd_event kNumLock, &H45, 1 Or 2, 0

Untuk Caps Lock :

keybd_event kCapsLock, &H45, 1 Or 0, 0
keybd_event kCapsLock, &H45, 1 Or 2, 0

dan untuk Scroll Lock :

keybd_event kScrollLock, &H45, 1 Or 0, 0
keybd_event kScrollLock, &H45, 1 Or 2, 0

Untuk memeriksa aktif tidaknya, berikut contoh kodenya (untuk Num Lock) :

If CBool(GetKeyState(kNumLock)) = True Then
'jika aktif
Else
'jika non aktif
End If

Mencetak String / Teks

Kode ini akan menunjukkan bagaimana mencetak variabel berjenis string / teks maupun properti string dari suatu kontrol, semisal properti Text dari kontrol TextBox.

Printer.Print "string yang akan dicetak"
Printer.EndDoc

Anda juga dapat melakukan kustomisasi terhadap string yang akan dicetak, contohnya seperti berikut: Tambahkan satu kontrol CommonDialog(CancelError=True) dan satu CommandButton. Ketikkan kode dibawah ini di bagian  'Command1_Click'.

On Error GoTo Ero
Dim s As String
CommonDialog1.ShowPrinter

'pengaturan
Printer.Copies = CommonDialog1.Copies
Printer.Orientation = CommonDialog1.Orientation

'memberikan judul diatas kertas
s = "Judul Dokumen"
Printer.CurrentX = Printer.ScaleWidth / 2 - (Printer.TextWidth(s) / 2) 'posisi tengah
Printer.Print s

'tanggal
s = "Dicetak : " & Now
Printer.CurrentX = Printer.ScaleWidth - Printer.TextWidth(s) 'posisi kanan
Printer.Print s

'isi
Printer.CurrentX = 0 'mengembalikan ke posisi pinggir kiri
Printer.Print "Tuliskan isi dari dokumen"
Printer.Print "Tuliskan isi dari dokumen"

'halaman
s = "Halaman " & Printer.Page
Printer.CurrentX = Printer.ScaleWidth - Printer.TextWidth(s) 'posisi kanan
Printer.CurrentY = Printer.ScaleHeight - Printer.TextHeight(s) 'posisi bawah
Printer.Print s

Printer.NewPage 'membuat halamam baru
'isi
Printer.CurrentX = 0 'mengembalikan ke posisi pinggir kiri
Printer.Print "Tuliskan isi dari dokumen"
Printer.Print "Tuliskan isi dari dokumen"

'halaman
s = "Halaman " & Printer.Page
Printer.CurrentX = Printer.ScaleWidth - Printer.TextWidth(s) 'posisi kanan
Printer.CurrentY = Printer.ScaleHeight - Printer.TextHeight(s) 'posisi bawah
Printer.Print s

Printer.EndDoc 'mengakhiri dokumen (wajib)
Ero:

Menggunakan Mouse Scroll

Kode ini akan menunjukkan bagaimana menggunakan mouse scroll atau roda di mouse.

Buat sebuah Form baru dan ketikkan kode berikut di bagian '(Declarations)'-nya.

Option Explicit

Private Declare Function PeekMessage Lib "user32" Alias "PeekMessageA" (lpMsg As msg, ByVal hwnd As Long, ByVal wMsgFilterMin As Long, ByVal wMsgFilterMax As Long, ByVal wRemoveMsg As Long) As Long
Private Declare Function WaitMessage Lib "user32" () As Long

Private Type POINTAPI
X As Long
Y As Long
End Type

Private Type msg
hwnd As Long
Message As Long
wParam As Long
lParam As Long
time As Long
pt As POINTAPI
End Type

Private Const PM_REMOVE = &H1
Private Const WM_MOUSEWHEEL = 522

Public Sub ProcessScroll()
Dim Message As msg

WaitMessage

If PeekMessage(Message, Form1.hwnd, WM_MOUSEWHEEL, WM_MOUSEWHEEL, PM_REMOVE) Then

If Message.wParam > 0 Then
'kode untuk scroll up
Form1.Top = Form1.Top - 250

Else
'kode untuk scroll down
Form1.Top = Form1.Top + 250

End If

End If

DoEvents
End Sub

Lalu tambahkan sebuah kontrol Timer (Interval=1), dan ketikkan kode berikut di bagian 'Timer1_Timer'.

Call ProcessScroll

Dukungan Scroll Mouse pada IDE VB 6.0

Secara default IDE pada VB 6.0 tidak didukung scroll mouse untuk menggulung jendela pengkodean, dan tentu saja hal ini mengurangi kenyamanan dalam pengetikan kode.
Untuk menambahkan dukungan scroll mouse lakukan tahap-tahap berikut ini :

1. Download file ini.
2. Jalankan / extract file tersebut ke dalam suatu folder.
   
3. Klik Start > Run, ketikkan regsvr32 path\VB6IDEMouseWheelAddin.dll . Ganti tulisan path dengan alamat folder hasil extract file download tadi, lalu klik OK. Jika muncul pesan kesalahan / error coba pindahkan ke lokasi folder yang lain.
4. Jalankan aplikasi VB 6.0.
5. Klik menu Add-Ins > Add-in Manager, dalam daftar pilh 'MouseWhell Fix'.
6. Centang pilihan 'Loaded/Unloaded' dan 'Load On Startup', lalu klik OK.