Hi Jess,
This work until aceess 2003, I don't know for newer version:
Add this function in the first form that you open
Function AddAppProperty(strName As String, varType As Variant, varValue As
Variant) As Integer
Dim dbs As Object, prp As Variant
Const conPropNotFoundError = 3270
Set dbs = CurrentDb
On Error GoTo AddProp_Err
dbs.Properties(strName) = varValue
AddAppProperty = True
AddProp_Bye:
Exit Function
AddProp_Err:
If err = conPropNotFoundError Then
Set prp = dbs.CreateProperty(strName, varType, varValue)
dbs.Properties.Append prp
Resume
Else
AddAppProperty = False
Resume AddProp_Bye
End If
End Function
Then on the open event of the form put this code
Const DB_Text As Long = 10
intX = AddAppProperty("AppTitle", DB_Text, "Your title") ' this set the
title
intX = AddAppProperty("AppIcon", DB_Text, "your icon with full path") '
this set the icon if you like
Application.RefreshTitleBar
HTH Paolo
