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.
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.