[SIZE=4][SIZE=1][SIZE=4]Dim a As Icon[/SIZE] [SIZE=4]a = Icon.ExtractAssociatedIcon("filename")[/SIZE] [SIZE=4]Me.Icon = a[/SIZE][/SIZE] [/SIZE]