Membuat Picture Viewer Dengan VB

Jika anda sering mengganti-ganti walpaper, tentunya sangat merepotkan jika anda harus membuka Control Panel, lalu Display Seting dan bla bla....
Dibicarakan saja sudah capek. Dengan aplikasi ini anda cukup memilih file gambar seperti pada program Picture Viewer dan mengklik sebuah tombol, maka sekejap wallpaper anda telah berubah.


Adapun caranya adalah sebagai berikut.
1. Tambahkan kontrol-kontrol ke Form dan atur propertiesnyaseperti berikut.

Jenis Kontrol	Nama Kontrol	Properties	Nilai
Form	Form1	Caption	Picture Viewer
DriveListBox	Drive1	-	-
DirListBox	Dir1	-	-
FileListBox	File1	-	-
Image	Image1	Stretch	True
CommondButton	Command1	Caption	Set This Picture As Wallpaper

2. Susunlah letak kontrol-kontrol tersebut pada form sehingga menjadi kira-kira seperti gambar berikut.


3. Ketikkan listing berikut pada kode editor

Private Const SPIF_UPDATEINFILE=&H1
Private Const SPI_SETDESKWALLPAPER=20
Private Const SPIF_SENDWININICHANGE=&H2

Private Declare SystemParametersInfo