Attribuer une valeur Vrai ou Faux à une variable
Dim R as Boolean
Au lieu de ceci : If (a% >5) Then R = True Else R = False
Vous pouvez écrire : R = a% > 5
 
Tester si un fichier existe.
S$ = "c:\autoexec.bat"
R$ = Dir (S$ , vbNormal)
Si R$ <>"" , alors le fichier existe
 
Retrouver la definition de l'écran en Pixel.
Largeur = (Screen.Width \ Screen.TwipsPerPixelX)
Hauteur = (Screen.Height \ Screen.TwipsPerPixelY)
 
Déterminer quel bouton Option a été sélectionné.
Supposons trois boutons Options : Opt(0), Opt(1) et Opt(2)
Voici une manière de déterminer rapidement lequel a été sélectionné :
SelectOpt = Opt(0) * 0 - Opt(1) * 1 - Opt(2) * 2
SelectOpt prend la valeur de l'index du bouton sélectionné.
 
Determiner les marges pour l'impression.
Supposons que l'on veut une marche gauche = 2 cm et une marge supérieure = 1 cm.

Printer.ScaleMode = vbCentimeters
Printer.ScaleLeft = -2
Printer.ScaleTop = -1
Printer.CurrentX = 0
Printer.CurrentY = 0
 
Charger automatiquement le fichier Win32API.MDB dans l'API Viewer
Si vous voulez charger automatiquement le fichier win32API.MDB (ou autre) dans l'API Viewer (Visionneuse d'API). Charger ce Fichier Dans la visionneuse et aller dans le menu "VIEW" (Affichage) , cliquez sur "Load Last File" (Charger le dernier fichier).

Maintenant, à chaque démarrage de l'API viewer, le fichier sera chargé automatiquement.
 
Forcer un nombre Hexadecimal à être Positif
L'utilisation du caractère AmperSand ("&") à la fin d'un nombre hexadecimal, force celui-ci à être positif.

Exemple :

Dim n As Long

n = &h8080
Debug.Print n '---> affichera - 32640

n = &h8080&
Debug.Print n '---> affichera 32768
 
Calculer votre Age.
Pour Calculer votre age, vous pouvez utiliser la fonction suivante.

Public Function Age(Naissance As Variant) As Integer
Dim T As Variant
'
T = DateDiff("y", Naissance, Now)
Age = Int(T / 365.25)
End Function

Exemple :
Placez sur une feuille un TextBox (Text1) et un bouton de Commande.
Dans le code du bouton, placez ceci :

Dim DT As Variant
Dim MonAge As Integer

DT = Cdate (Text1)

MonAge = Age (DT)
 
Positionner une feuille au centre de l'ecran en VB5/VB6
Les feuilles en VB5 et VB6 ont maintenant une nouvelle propriété StartUpPosition
qui permet de les positionner au centre de l'écran. Attribuez à cette propriété la
valeur 2.
 
Utiliser WIN.TLB au lieu de l'API viewer
Sur le CD de Win98 dans le repertoire TOOLS\RESKIT\SYSFILES le fichier WIN.TLB contient les références des fonctions API de Win98. Charger ce fichier dans les références de votre projet et vous ne devrez plus utiliser l'API Viewer. Les declarations des fonctions API seront immédiatement disponibles dans Visual Basic.
L'utilisation de MsgBox arrête un control Timer
Si vous utilisez un controle Timer, celui-ci est arrêté pendant l'utilisation de la fonction MsgBox.

Pour pallier à cet inconvénient, utilisez l'API MessageBox.

Exemple : Call MessageBox ("Ceci est le Texte", "Ceci est le Titre", vbInformation)