Private function DrawIso() as bitmap
 Dim g As Graphics
 Dim Img As Bitmap
 Img = New Bitmap(400, 400)
 g = Graphics.FromImage(mapping)
 
 'Initialisation du nombre de case
 Dim NbrX, NbrY As Integer
 NbrX = 10
 NbrY = 10
 
 Dim X, Y As Integer
        X = 0
        Y = 0
 
         While Y < NbrY
            While X < NbrX
                Dim Img As Image = application.startuppath & "/sol.jpg"
                'Coordonée pour le passage en 2D iso
                Dim dec As Integer = NbrY * Img.Height / 2
                Dim OrigX As Integer = (X - Y) * Img.Height / 2 + dec
                Dim OrigY As Integer = (Y + X) * Img.Height / 4
                'Application ratio 2/1
                Dim ImgH As Integer = Truncate(Img.Height / 2)
                Dim ImgL As Integer = Truncate(Img.Width) '* 2)
                g.DrawImage(rotation(Img, -45), OrigX, OrigY, ImgL, ImgH)
                X += 1
            End While
            Y += 1
            X = 0
        End While
Return Img
End Sub

Imports System.Management 'A ajouter aussi dans vos référence projet
 
Dim WithEvents ManagEvent As ManagementEventWatcher
Dim QueryEvent As WqlEventQuery
 
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        QueryEvent = New WqlEventQuery("Select * from Win32_DeviceChangeEvent")
        ManagEvent = New ManagementEventWatcher(QueryEvent)
        ManagEvent.Start()
End sub
 
Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
        ManagEvent.Stop()
End Sub
 
Private Sub ManagEvent_EventArrived(ByVal sender As Object, ByVal e As System.Management.EventArrivedEventArgs) Handles ManagEvent.EventArrived
        'Evenement lors de la détection
End Sub

Private Sub Textbox_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Textbox.KeyPress
 
        Select Case e.KeyChar
            Case "0" To "9"
                e.Handled = False
            Case "a" To "z"
                e.Handled = False
            Case "A" To "Z"
                e.Handled = False
            Case " "
                e.Handled = False
            Case Else
                If (Char.IsControl(e.KeyChar)) = True Then
                    e.Handled = False
                Else
                    e.Handled = True
                End If
 
        End Select
    End Sub