Güzel kod. Ama Usb takılı iken ilk olarak usb takılı değil diyor sonra USB takılı diyor paradox-

Private Sub Form_Load 'http://www.wardom.org Dim obj, objs Set objs = GetObject . ExecQuery("Select from Win32_DiskDrive ") For Each obj In objs If Mid(obj. PNPDeviceId, 1, 7) = "USBSTOR" Then MsgBox "USB Disk takılı", vbInformation, "Wardom" End if Next End Sub -