'exemple pour créer 'MaVoiture' à partir de la class " LesVoitures "
Dim MaVoiture As New LesVoitures

'propriétés de MaVoiture
MaVoiture.Couleur = " Bleue " 'la couleur est bleue
MaVoiture.Phares = 2 'elle possède 2 phares

'Méthode de MaVoiture
MaVoiture.Roule() ' la voiture roule

'Méthode avec paramètre
MaVoiture.Roule(100) 'MaVoiture va rouler à 100 Km/h

'Méthodes avec plusieurs paramètres
MaVoiture.Roule(100, avant) 'Ici elle va rouler à 100 Km/h en avant !

'Evenement de MaVoiture
MaVoiture.Roule(100, avant) 'Ici elle va rouler à 100 Km/h en avant !
'MaVoiture_Demarrer va donc se déclencher à cause de l'appel de la méthode 'Roule' 

Dim A As Integer ' est une instruction (de déclaration)
A=1 ' est aussi une instruction qui effectue une assignation. 

Dim B As String : B="Bonjour"

Dim B As String = "Bonjour monsieur ": C= _
"le professeur"
'Equivaut à :
Dim B As String = "Bonjour monsieur ": C= "le professeur"

1  Dim B As String 
2  B="Bonjour"
3  Dim A As Integer 
4  A= 3
5  A= A + 1

'Ceci est un commentaire, ce n'est pas une instruction.

'Exemple de sub
Sub DemarrerProgramme()
     'la procédure ne retournera aucune valeur.
End Sub

'Exemple de fonction
Function CalculerPi()
     'la fonction va retourner la valeur de PI après une série de calculs…
End Function

'Exemple d'appel de fonction ou sub
Call DemarrerProgramme 'déconsillé
CalculerPi() 'OK
'Ces deux appels sont identiques

'Exemple de module
Module NomDeMonModule
     Sub Test1()
          'Procédure 1
     End Sub
 
     Function Test_1()
          'Fonction 1
     End Function

     Function Test_2()
          'Fonction 2
     End Function

     Sub Test2()
          'Procédure 2
     End Sub
End Module

'Exemples de noms de variables
MaVariable 'est acceptée
COOL 'est acceptée
Je_Suis_1_Variable 'est aussi acceptée
2Variable 'est refusée
2_Variable 'est également refusée
The Variable 'est réfusée
Différent 'est aussi refusée

'Exemple : 
Variable_pour_calculer_pi 'est mieux que
VariablePourCalculerPi 'mais ces deux lignes sont équivalentes 

'Exemples de déclarations de variables
Dim Ma_Variable As String
Dim Nombre As Integer
Dim Compteur As Integer

'Instancier des variables
Dim Msn As New Msn_Protocol 'Msn_Protocol est une class
Dim Test As New Class 

'Exemple avec les variables précédentes
Dim Ma_Variable As String = " toto "
Dim Nombre As Integer = 45
Dim Compteur As Integer = 1000

'Exemple de variable instanciée par une fonction
Dim Pi As Decimal = Fonction_pour_calculer_pi()

'Exemples
Dim Pi As Decimal = 3.14 'crée la variable Pi qui vaut 3.14
Dim a As Integer = 15 'crée la variable a qui vaut 15

Dim Pi_Entier As Integer = CInt(Pi) 'retournera 3
Dim a_caractère As String = CStr(a) 'retourner " 15 " 'en chaîne de caractère

'Exemple avec des sub et fonctions

Module Test_Portee

     Private Sub Test()

     End Sub

     Protected Sub Azerty(ByVal Argument As String)

     End Sub

     Private Shared Function Calcul(ByVal Nombre As Integer)

     End Function

End Module

'Exemple
Module Test
     Public Nombre As Integer

     Public Sub Routine_Qui_Va_Affecter_La_Variable(ByVal Valeur As Integer)
            Nombre = Valeur
     End Sub
End Module

'Quelque part d'autre dans le programme on appel la procédure avec un argument de type Integer
Call Routine_Qui_Va_Affecter_La_Variable(45) 

'Ensuite dans le programme totale, la variable Nombre va valoir 45
MsgBox(Nombre.ToString) 'Affiche dans une boite de dialogue la valeur

Nombre = 45

If condition 1 vraie Then
    'exécuter instructions
Else 
    'exécuter autre intructions
End If

'Exemple 
Dim code As Integer = 1739
 
If code = 1739 Then
     MsgBox("condition vraie")
Else
     MsgBox("condition fausse")
End If

If Not A=B Then MsgBox("A est différent de B") 'Si A et B sont différents (Not A=B signifie NON égaux) afficher "A est différent de B". 

If A=B And C=D Then..    'Si A égal B et si C égal D 

'Exemple
If condition_1 vraie Then
      If condition_2 vraie Then
             MsgBox("Condition_1 Vraie et Condition_2 Vraie")
      Else
            If condition_3 Vraie Then
                  MsgBox("Condition_1 Vraie et Condition_2 Fausse et Condition_3 Vraie")
            End If
      End If
End If

If Condition1 vraie Then
    ..
ElseIf condition2 Then 'sinon on teste la condition 2
    ..
ElseIf condition3 Then 'la condition 3
    ..
End If

Select Case X
    Case 1 : 'faire Y
    Case 2 : 'faire Z
    Case Else : 'faire A
End Select

Select Case code
    Case 1 : 'se connecter
    Case 2 : 'se déconnecter
    Case Else : 'erreur code non reconnu
End Select

'Exemple avec les virgules
Select Case N
    Case 8, 9, 10
        'Effectuer le code  si N=8 ou N=9 ou N=10
End Select
'Exemple avec une plage de valeurs
Select Case N
    Case 8 To 20
       'Effectuer le code  si N est dans la plage 8 à 20
End Select
'Exemple avec un opérateur de comparaison
Select Case N
     Case Is >= 15
         'Effectuer le code  si N supérieur ou égal à 15.
End Select
Select Case N
     Case 3 To 6, 7 To 15, 200, 1654, Is > MaxNumber
         'Effectuer le code si N, compris entre 3 et 15, si N = 200 ou N = 1654, est supérieur à MaxNumber
End Select
Select Case N
     Case "ttt", "bbb" To "eee", Nombre
          'Effectuer le code si N ="ttt" ou si N est compris entre "bbb" et "eee" (ordre alphabétique) ou si N = Nombre
End Select

For Variable = Debut To Fin
   'Execute la boucle
Next Variable

'Exemple de boucle
Dim i As Integer
For i = 3 To 10
   'Exécute la boucle pour i variant de 3 à 10
Next i

'Exemple de boucle
Dim i As Integer
For i = 3 To 10 Step 2
    MsgBox(i.ToString) 'affiche 3 puis 5 puis 7 et enfin 9
Next i

'Exemple
For Test As Integer = 0 To 43
    'boucle de 0 à 43
Next

'Exemple de sortie de boucle
For Test As Integer = 0 To 43
    If Test = 3 then Exit For 'Quand Test sera égale à 3 alors on sort…
Next

Do
   'Instructions
Loop Until Condition

Do
   'Instructions
Loop While Condition

'Exemple avec Until
Dim i As Integer = 0
Do
   i = i + 1 'incrémente i de 1
   MsgBox(i.ToString) 'affiche la valeur de i
Loop Until i = 10 'Quand i = 10 on sort de la boucle.

'Exemple avec While
Dim Fichier As String
Do
   'Liste les fichiers d'un répertoire
Loop While Fichier <> "NomDeMonFichier " 'Tant que Fichier n'est pas égal à NomDeMonFichier alors on boucle sinon on sort.

While Condition
    'Execute la boucle
End While

'Exemple :
Dim Compteur As Integer = 0
While Compteur < 20 'Dès que Compteur = 20, on sort de la boucle.
   Compteur