Tuesday, March 16, 2010

VB6 Code - Fungsi Untuk Me-Minimize Seluruh Windows

Di bawah ini merupakan fungsi VB6 untuk me-minimize Seluruh Windows. Karena menggunakan metode Early Binding maka, Untuk keperluan ini Anda harus mereferensi objek "Microsoft Shell Controls And Automation" atau "Shell32.dll" yang biasa terletak pada SystemRoot\System32 (c:\Windows\System32\Shell32.dll).

Jika Anda ingin menggunakan metode Late Binding maka gantilah kode berikut:

Dim Sh as new Shell32.Shell

Menjadi:

Dim Sh as Object
Set Sh = CreateObject("Shell.Application")
Option Explicit

Sub MinimizeAll()
Dim sh As New Shell32.Shell
sh.MinimizeAll
Set sh = Nothing
End Sub

'Contoh penggunaan
Private Sub Command1_Click()
Call MinimizeAll
End Sub