Listing C
Private Sub Form_Load()
  Dim boo As Boolean
  boo = SetStartupOptions("AppIcon", 10, _
      "C:\A\TechRepublic\Icons\h.ico")
  If boo = True Then
    CurrentDb.Properties("UseAppIconForFrmRpt") _
        = vbTrue
  End If
End Sub