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 = DBT_DEVICEARRIVAL Then
                MessageBox.Show("Neuer Datenträger gefunden")
            End If
            If msg.WParam = DBT_DEVICEREMOVECOMPLETE Then
                MessageBox.Show("Ein Datenträger wurde entfernt")
            End If
        End If
    End Sub
End Class