Xp Look

Used this from the code bank

VB Code:

Private Declare Function InitCommonControls Lib "comctl32.dll" () As Long
Private Sub MDIForm_Initialize()
InitCommonControls
End Sub

Adding a manifest file per instructions from the codebank
My user has a couple desktop database apps that they wanted it to look more along the Xp look
Tried this approach it works well on one program the next one bombs, won't start up Gives "Run Time Error '7'"
Out of memory.
Remove the manifest and everything works fine but no look
Also in the IDE the program works with the Xp look, no errors
Any ideas?

You may want to try using InitCommonControlsEx instead:

VB Code:

Const ICC_LISTVIEW_CLASSES = &H1       ' listview, header
Const ICC_TREEVIEW_CLASSES = &H2       ' treeview, tooltips
Const ICC_BAR_CLASSES = &H4            ' toolbar, statusbar, trackbar, tooltips
Const ICC_TAB_CLASSES = &H8            ' tab, tooltips
Const ICC_UPDOWN_CLASS = &H10          ' updown
Const ICC_PROGRESS_CLASS = &H20        ' progress
Const ICC_HOTKEY_CLASS = &H40          ' hotkey
Const ICC_ANIMATE_CLASS = &H80         ' animate
Const ICC_WIN95_CLASSES = &HFF
Const ICC_DATE_CLASSES = &H100         ' month picker, date picker, time picker, updown
Const ICC_USEREX_CLASSES = &H200       ' comboex
Const ICC_COOL_CLASSES = &H400         ' rebar (coolbar) control
Const ICC_INTERNET_CLASSES = &H800
Const ICC_PAGESCROLLER_CLASS = &H1000      ' page scroller
Const ICC_NATIVEFNTCTL_CLASS = &H2000      ' native font control
Private Type InitCommonControlsExType
    dwSize As Long 'size of this structure
    dwICC As Long 'flags indicating which classes to be initialized
End Type
Private Const WS_VISIBLE = &H10000000
Private Const WS_CHILD = &H40000000
Private Declare Sub InitCommonControls Lib "comctl32" ()
Private Declare Function InitCommonControlsEx Lib "comctl32" (init As InitCommonControlsExType) As Boolean
Private Declare Function CreateWindowEx Lib "user32" Alias "CreateWindowExA" (ByVal dwExStyle As Long, ByVal lpClassName As String, ByVal lpWindowName As String, ByVal dwStyle As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hWndParent As Long, ByVal hMenu As Long, ByVal hInstance As Long, lpParam As Any) As Long
Private Declare Function DestroyWindow Lib "user32" (ByVal hwnd As Long) As Long
Dim mWnd As Long
Private Sub Form_Load()
    'KPD-Team 2000
    'URL: [url]http://www.allapi.net/[/url]
    'E-Mail: [email][email protected][/email]
    Const IE3_INSTALLED = True
    If IE3_INSTALLED = True Then
        Dim initcc As InitCommonControlsExType
        initcc.dwSize = Len(initcc)
        initcc.dwICC = ICC_UPDOWN_CLASS
        InitCommonControlsEx initcc
    Else
        InitCommonControls
    End If
    mWnd = CreateWindowEx(0, "msctls_updown32", "KPD UpDown Control", WS_VISIBLE Or WS_CHILD, 0, 0, 50, 100, Me.hwnd, ByVal 0&, ByVal 0&, ByVal 0&)
End Sub
Private Sub Form_Unload(Cancel As Integer)
    DestroyWindow mWnd
End Sub

Also, see if you can benefit from these search results .

Excuse me, but how would it be poossible for IE3_INSTALLED to return false if it's declared true just before the check? :confused: