USB Alerter

[georgelabra]

Hey there guys.I was searching about a usb alerter thingy tool but there's no tutorial on how to make one so i decided to give you a source code (that's not made by me).
1.You do not need anything on the form.
2.Copy and Paste the code.

Imports System. IO 
Public Class Form1
    Private allDrives As New List(Of DriveInfo)
    Private Const WM_DEVICECHANGE As Integer = &H219
    Private Const DBT_DEVICEARRIVAL As Integer = &H8000
    Private Const DBT_DEVICEREMOVECOMPLETE As Integer = &H8004
    Protected Overloads Overrides Sub WndProc(ByRef msg As Message)
        MyBase.WndProc(msg)
        If msg.Msg = WM_DEVICECHANGE AndAlso msg.WParam = DBT_DEVICEARRIVAL Then
            For Each s As String In Directory.GetLogicalDrives
                find_driveinfo_arg = s
                Dim d As DriveInfo = allDrives.Find(AddressOf find_driveinfo)
                If d Is Nothing Then

                    MessageBox.Show("Alert ! USB Stick Plugged In = " & s)

                    allDrives.Add(New DriveInfo(s))
                End If
            Next
        End If
        If msg.Msg = WM_DEVICECHANGE AndAlso msg.WParam = DBT_DEVICEREMOVECOMPLETE Then
            Dim temp As List(Of DriveInfo) = GetAllDrives()
            For Each d As DriveInfo In allDrives
                find_driveinfo_arg = d.Name
                Dim lost As DriveInfo = temp.Find(AddressOf find_driveinfo)
                If lost Is Nothing Then

                    MessageBox.Show("Alert ! USB Stick Plugged Off = " & d.Name)

                    allDrives.Remove(d)

                    Exit For
                End If
            Next
        End If
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        allDrives = GetAllDrives()
    End Sub
    Private Function GetAllDrives() As List(Of DriveInfo)
        Dim ret As New List(Of DriveInfo)
        For Each d As String In Directory.GetLogicalDrives
            ret.Add(New DriveInfo(d))
        Next
        Return ret
    End Function
    Private find_driveinfo_arg As String
    Private Function find_driveinfo(ByVal d As DriveInfo)
        If d.Name = find_driveinfo_arg Then
            Return True
        Else
            Return False
        End If
    End Function
End Class

3.Debug
4.Insert Usb

Ofc , there are many programmers out there that can make this even better keep it as simple as it is.
No credits for this one.