Public Class Form1
    Private Const WM_DEVICECHANGE As Integer = &H219
    Private Const DBT_DEVICEARRIVAL As Integer = &H8000
 
    Protected Overloads Overrides Sub WndProc(ByRef msg As Message)
        MyBase.WndProc(msg)
        If msg.Msg = WM_DEVICECHANGE AndAlso msg.WParam = DBT_DEVICEARRIVAL Then
            MessageBox.Show("Neuer Datenträger erkannt")
        End If
    End Sub
End Class