提取文件的图标

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim FilePath As String = TextBox1.Text
        PictureBox1.Image = Icon.ExtractAssociatedIcon(FilePath).ToBitmap
    End Sub