home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 3_2004-2005.ISO / Data / Zips / Programmin18171611112004.psc / modMain.bas < prev    next >
Encoding:
BASIC Source File  |  2004-11-11  |  664 b   |  34 lines
  1. Attribute VB_Name = "modMain"
  2. Option Explicit
  3.  
  4. '** Initialize for XP-Style through Ressource File
  5.  
  6. Public Type tagInitCommonControlsEx
  7.     lngSize As Long
  8.     lngICC As Long
  9. End Type
  10. Private Declare Function InitCommonControlsEx Lib "COMCTL32.DLL" _
  11.     (iccex As tagInitCommonControlsEx) As Boolean
  12.  
  13. Private Const ICC_USEREX_CLASSES = &H200
  14.  
  15. Public Sub Main()
  16.  
  17.     On Error Resume Next
  18.     
  19.       Dim iccex As tagInitCommonControlsEx
  20.       With iccex
  21.           .lngSize = LenB(iccex)
  22.           .lngICC = ICC_USEREX_CLASSES
  23.       End With
  24.       InitCommonControlsEx iccex
  25.     frmMain.Show
  26.     
  27.     On Error GoTo 0
  28.     
  29. End Sub
  30.  
  31.  
  32.  
  33.  
  34.