code Belokir USB Drive VB 6.0

Code Dibawah INI Berguna Untuk membelokir USB Drive
 LayakNya seperti
-FlashDisk
-memorry Card .dll
 Tetapi Tidak Bisa Membelokir HardWare Lain Yang Menggunakan USB...
Seperti:
-Modem
-Printer

 Berikut CodeNya:
Dim Reg As Object
Set Reg = CreateObject("Wscript.Shell")
Reg.RegWrite "HKLM\System\CurrentControlSet\Services\USBSTOR\Start", 4, "REG_DWORD"


 jika ingin mengembalikan Seperti Semula
Ketik Code INI:
Dim Reg As Object
Set Reg = CreateObject("Wscript.Shell")
Reg.RegWrite "HKLM\System\CurrentControlSet\Services\USBSTOR\Start", 3, "REG_DWORD"

 lalu Restart PC/NoteBook(LapTop)