Icone dans barre de titre USF

Option Explicit

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SendMessageA Lib "user32" _
(ByVal hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Integer, ByVal lParam As Long) As Long
Private Declare Function ExtractIconA Lib "shell32.dll" _
(ByVal hInst As Long, ByVal lpszExeFileName As String, _
ByVal nIconIndex As Long) As Long

Private Sub UserForm_Initialize()
Dim IcoPath As String
IcoPath = ThisWorkbook.Path & "\Msn.ico"
Dim hIcon As Long
hIcon = Len(Dir(IcoPath))
If hIcon = 0 Then Exit Sub
hIcon = ExtractIconA(0, IcoPath, 0)
SendMessageA FindWindow(vbNullString, Me.Caption), &H80, False, hIcon
End Sub

Cliquez pour agrandir...