Dim Standardpfad As String = "C:\Dokumente und Einstellungen\Daniel\Eigene" & _
      "Dateien\Eigene Bilder\Wallpapers\01110_treesnakeonbranch_1280x800.jpg"
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        dgv.Rows(0).Cells(0).Value = getPathIcon(TextBox1.Text)
    End Sub
 
    Private Function getPathIcon(ByVal path As String) As Icon
        Return System.Drawing.Icon.ExtractAssociatedIcon(path)
    End Function
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        dgv.RowCount = 1
        TextBox1.Text = Standardpfad
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        System.IO.File.Create("C:\getExpansionIcon" & TextBox2.Text)
        dgv.Rows(0).Cells(0).Value = getPathIcon("C:\getExpansionIcon" & _
          TextBox2.Text)
        'System.IO.File.Delete("C:\getExpansionIcon" & TextBox2.Text)
    End Sub
 
    Private Function getPathIcon(ByVal path As String) As Icon
        Return System.Drawing.Icon.ExtractAssociatedIcon(path)
    End Function
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        dgv.RowCount = 1
    End Sub