Create an image control with the icon in it and use this code
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _
ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" ( _
ByVal hWnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
lParam As Any) As Long
Private Const WM_SET_ICON = &H80
Private Const WM_ICON_SMALL = 0&
Private Const WM_ICON_BIG = 1&
Private Sub ChangeMenuBar(frm As Object)
Dim hWnd As Long, hIcon As Long
With frm
If Val(Application.Version) >= 9 Then
hWnd = FindWindow("ThunderDFrame", .Caption)
Else
hWnd = FindWindow("ThunderXFrame", .Caption)
End If
hIcon = .imgIcon.Picture.Handle
SendMessage hWnd, WM_SET_ICON, WM_ICON_BIG, ByVal hIcon
.imgIcon.Visible = False
.Show
End With
End Sub
--
HTH
Bob Phillips
(remove nothere from email address if mailing direct)
