NOMBRE DE MENU DANS VOTRE FORM

Private Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Long
Private Declare Function GetMenu Lib "user32" (ByVal hWnd As Long) As Long

Private Sub Command1_Click()
Dim hMenu As Long
hMenu = GetMenu(Me.hWnd)
Me.Caption = GetMenuItemCount(hMenu)
End Sub 

• VBFRANCE MESSENGER + SERVEUR, ANCIENNE SOURCE
• ÉDITEUR HEXADÉCIMAL
• ÉCRAN DE VEILLE, APERÇU, OPTIONS (SANS DIRECT X) RESSEMBLE UN PEU À MATRIX
• DÉFORMER UNE IMAGE, FAIRE DES VAGUES (SIN) (UPDATED)
• ANALYSEUR MATHÉMATIQUE

• TITLE BAR, AJOUTEZ VOTRE BOUTTON DANS LA BARE DE TITRE DES FENETRE
• VERROUILLAGE DU LECTEUR CD - EJECTION SUR MOT DE PASSE
• CHANGEDESKTOP: CHANGEMENT DE L'APPARENCE DE LA LISTVIEW DU BUREAU WINDOWS
• SERVEUR OPC
• CLASSES TIMER (SANS MODULE)

• CRÉATION DE FORM ET DE CONTRÔLES
• BASE DE DONNÉES AVEC UN FICHIER À ACCÉS DIRECT
• DESSINER AVEC LA METHODE "DRAWIMAGE"
• USERFORM PLEIN ÉCRAN SOUS EXCEL VBA
• METTRE UN MENU SUR LA DROIT D'UNE FORM