Form Berlatar Desktop

Kode ini akan mengubah latar belakang dari sebuah Form menjadi seperti gambar / wallpaper Desktop komputer Anda. Buat sebuah Form dengan kontrol Timer (Enabled=True; Interval=100) didalamnya.

[ VB 6.0 ]
Ketik kode berikut di bagian '(Declarations)' dari Form.

Private Declare Function PaintDesktop Lib "user32" (ByVal hdc As Long) As Long

Dan ketikkan kode berikut di bagian 'Timer1_Timer'.

PaintDesktop Me.hdc

[ VB .NET ]
Ketik kode berikut di bagian '(Declarations)' dari Form.

Private Declare Function PaintDesktop Lib "user32" (ByVal hdc As Integer) As Integer
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Integer) As Integer

Dan ketikkan kode berikut di bagian 'Timer1_Tick'.

PaintDesktop(GetDC(Me.Handle.ToInt32))