Public Class Form1
    Private Const WM_DEVICECHANGE As Integer = &H219
    Private Const DBT_DEVICEARRIVAL As Integer = &H8000
    Private Const DBT_DEVICEREMOVECOMPLETE = &H8004
 
    Protected Overloads Overrides Sub WndProc(ByRef msg As Message)
        MyBase.WndProc(msg)
 
        If msg.Msg = WM_DEVICECHANGE Then
            If msg.WParam = CType(DBT_DEVICEARRIVAL, IntPtr) Then
                TextBox1.Text += "Neuen Datenträger gefunden" & vbCrLf
            End If
            If msg.WParam = CType(DBT_DEVICEREMOVECOMPLETE, IntPtr) Then
                TextBox1.Text += "Ein Datenträger wurde entfernt" & vbCrLf
            End If
        End If
    End Sub
End Class