Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Downloader - mMain.bas

mMain.bas

Caricato da: Natamas
Scarica il programma completo

  1. Attribute VB_Name = "mMain"
  2. Option Explicit
  3. Public Type tagInitCommonControlsEx
  4.    lngSize As Long
  5.    lngICC As Long
  6. End Type
  7. Public Declare Function InitCommonControlsEx Lib "comctl32.dll" (iccex As tagInitCommonControlsEx) As Boolean
  8. Public Const ICC_USEREX_CLASSES = &H200
  9.  
  10. Public Sub Main()
  11.    On Error Resume Next
  12.    Dim iccex As tagInitCommonControlsEx
  13.    With iccex
  14.        .lngSize = LenB(iccex)
  15.        .lngICC = ICC_USEREX_CLASSES
  16.    End With
  17.    InitCommonControlsEx iccex
  18.    On Error GoTo 0
  19.    Load Form1
  20.    Form1.Show
  21. End Sub