Dim tableau As String() 

'Allocation de la mémoire pour ce tableau

'Tableau non initialisé de dix strings. Dans ce cas chaque élément du tableau a la valeur par défaut du type. 
'Pour String c'est "".
tableau = New String(9} {} 
'Tableau initialisé de deux strings.
tableau = New String(1) {"Un", "Deux"} 

Dim tableau As Integer() = New Integer(9) {} 

Dim tableau As Integer() = new Integer(9) {10,  11,  12,  13, 14, 15, 16, 17, 18, 19}
'Pour parcourir le tableau
Dim i As Integer
For i = 0 to tableau.GetUpperBound(0)
    Debug.Writeline(tableau(i))
Next

 
Dim tableau As Integer(,) = new Integer(3, 2) {} 

  
Dim tableau As Integer(,) = New Integer(2, 5) {{0, 1, 2, 3, 4, 5}, {6, 7, 8, 9, 10, 11}, {12, 13, 14, 15, 16, 17}}
'Parcours du tableau
Dim j,i As Integer
For j = 0 To tableau.GetUpperBound(0)
    For i  = 0 To tableau.GetUpperBound(1)
        Console.WriteLine("({0},{1})={2}", j, i, tableau(j, i))
    Next
Next

'Sans initialisation
Dim tableau As Integer()()
'Allocation mémoire
tableau = New Integer(1) (){New Integer(2) {0,1,2}, New Integer(1) {0,1}}
'Avec initialisation
Dim tableau As Integer()() = {New Integer(2) {0, 1, 2}, New Integer(5) {0, 1, 2, 3, 4, 5}}
'Parcours du tableau
Dim i ,j As Integer
For j = 0 to tableau.GetUpperBound(0)
    For i = 0 To tableau(j).GetUpperBound(0)
        Console.WriteLine("({0},{1})={2}", j, i, tableau(j)(i))
    Next
Next

Dim s As String
s = "Un" & _
     "Deux" & _
     "Trois"

Dim i As integer : i=5

Imports  System 
Imports  System.Windows.Forms 
'... 
Private Sub maSaisie_KeyUp(ByVal sender As Object, ByVal e As KeyEventArgs) Handles maSaisie.KeyUp 
 'Exemple après l'appui de la touche "Enter" 
 If e.KeyCode = Keys.Enter Then 

  'Arrêter la capture d'evenement clavier sur le contrôle 
  RemoveHandler Me.maSaisie.KeyUp, AddressOf Me.maSaisie_KeyUp 

  'Traitements longs 

  'Reprendre la capture d'evenement clavier sur le contrôle 
  AddHandler Me.maSaisie.KeyUp, AddressOf Me.maSaisie_KeyUp  
    
 End If 
End Sub

Public Sub myFiltre(ByVal e As System.Windows.Forms.KeyPressEventArgs, ByVal autorise As String)
        e.Handled = Not (Char.IsDigit(e.KeyChar) Or Char.IsControl(e.KeyChar) Or e.KeyChar = autorise)
End Sub

Private Sub myTextBox_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles myTextBox.KeyPress
      myFiltre(e, ",")
End Sub

myFiltre(e, "/")

Dim dt As New DateTime(1978, 5, 18) 
dt.ToString(param) 

dt.ToString("dddd, le d MM yyyy")

 
Imports System.Text.RegularExpressions 

 
Dim monTexte As String = "Une astuce de dvp.com ! Une astuce de dvp.com !" 

' Paramétrage de notre expression régulière : 
' Ici on spécifie que l'on ne veut pas tenir compte dela casse du 
' texte dans nos remplacements. 
Dim maRegEx As New Regex("\bdvp.com\b", RegexOptions.IgnoreCase) 

' Remplacement des occurences de "dvp.com" par "Developpez.com" 
monTexte = maRegEx.Replace(monTexte, "Developpez.com") 

'Fichier MaClasse.1.vb 
Public Partial Class MaCLasse 
   Private infos As List(Of String) 
End Class 

'Fichier MaClasse.2.vb 
Public Partial Class MaCLasse 
    Public Sub New() 
        Me.infos = New List(Of String)() 
    End Sub 
End Class 

Imports System.Diagnostics 

' Instanciation d'un objet StopWatch 
Dim monStopWatch As New Stopwatch 

' Déclenchement du "chronomètre" 
monStopWatch.Start() 

' /////////////////////////////// 
' Placez ici le code que vous voulez évaluer, cela peut être par exemple du code 'brut' ou 
' alors l'appel d'un méthode... 
' /////////////////////////////// 

' Arrêt du "chronomètre" 
monStopWatch.Stop() 

' Le temps écoulé peut être récupéré très facilement avec un membre de StopWatch, 
' de la façon suivante. Le résultat est exprimé en millisecondes 
Dim tempsExecution As Long 
tempsExecution = monStopWatch.ElapsedMilliseconds 

Public Shared Function ByteArray2Image(ByVal BArray As Byte()) As Image 
   Try 
      Dim mstImage As MemoryStream = New MemoryStream(BArray) 
      Dim img As Image = Image.FromStream(mstImage) 
      Return img 
   Catch ex As Exception 
      Return Nothing 
   End Try 
End Function

Public Shared Function Image2ByteArray(ByVal img As Image) As Byte() 
 Try 
   Dim mstImage As MemoryStream = New MemoryStream 
   img.Save(mstImage, System.Drawing.Imaging.ImageFormat.Jpeg) 
   Dim bytImage As Byte() = mstImage.GetBuffer 
   Return bytImage 
 Catch ex As Exception 
   Return Nothing 
 End Try 
End Function

    <Flags()> Enum MonEnum As Integer
        PosUn = 1
        PosDeux = 2
        PosTrois = 3
        PosQuatre = 4
    End Enum

    Sub Main()
        Dim MaVar As MonEnum = MonEnum.PosUn Or MonEnum.PosDeux
        Console.WriteLine(MaVar.ToString)
    End Sub

End Module

<Flags()> Enum MonEnum As Integer
        PosUn = 1
        PosDeux = 2
        PosTrois = 4
        PosQuatre = 8
    End Enum

Public Class Personne

    Private m_Nom, m_Prenom As String
    Private m_BirthDay As Date

    Public Sub New(ByVal Nom As String, ByVal Prenom As String, ByVal Birthday As Date)
        m_Nom = Nom
        m_Prenom = Prenom
        m_BirthDay = Birthday
    End Sub
    
    Public ReadOnly Property Identite() As String
        Get
            Return Me.m_Nom & " " & Me.m_Prenom
        End Get
    End Property
    
    Public ReadOnly Property Age() As Int32
        Get
            Return DateDiff(DateInterval.Year, m_BirthDay, Now.Date, FirstDayOfWeek.Monday, FirstWeekOfYear.Jan1)
        End Get
    End Property

End Class

Public Class HappyBirthDayEventArgs
    Inherits System.EventArgs

    Private m_Age As Int32

    Public Sub New(ByVal MonAge As Int32)
        m_Age = MonAge
    End Sub

    Public ReadOnly Property Age() As Int32
        Get
            Return m_Age
        End Get
    End Property
End Class

Public Class Personne

    Delegate Sub HappyBirthDayEventHandler(ByVal sender As Object, ByVal e As HappyBirthDayEventArgs)
    Public Event HappyBirthDayEvent As HappyBirthDayEventHandler
....

Public ReadOnly Property Age() As Int32
    Get
        If Me.m_BirthDay.Day = Now.Day AndAlso Me.m_BirthDay.Month = Now.Month Then
            RaiseEvent HappyBirthDayEvent(Me, New HappyBirthDayEventArgs(DateDiff(DateInterval.Year, m_BirthDay, Now.Date, FirstDayOfWeek.Monday, FirstWeekOfYear.Jan1)))
        End If
        Return DateDiff(DateInterval.Year, m_BirthDay, Now.Date, FirstDayOfWeek.Monday, FirstWeekOfYear.Jan1)
    End Get
End Property

Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim bidou As New Personne("Rabilloud", "Jean-Marc", #10/12/1967#)
    AddHandler bidou.HappyBirthDayEvent, AddressOf Anniversaire
    Dim MonAge As Int32 = bidou.Age
End Sub

Private Sub Anniversaire(ByVal sender As Object, ByVal e As HappyBirthDayEventArgs)
    MsgBox("aujourd'hui " & CType(sender, Personne).Identite & " a " & e.Age.ToString & " ans")
End Sub

Friend WithEvents txtEntree1 As System.Windows.Forms.TextBox

Private Sub cmdSomme_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSomme.Click

Private Sub txtEntree_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtEntree1.KeyPress, txtEntree2.KeyPress

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    'Je m'abonne
    AddHandler Button1.Click, AddressOf BoutonUnClick
End Sub

Private Sub BoutonUnClick(ByVal sender As System.Object, ByVal e As System.EventArgs)
    MsgBox("ce bouton ne marche qu'une fois")
    'je me désabonne
    RemoveHandler Button1.Click, AddressOf BoutonUnClick
End Sub

Public Class ChaineVideException
    Inherits ApplicationException

    Public Sub New()
        MyBase.New()
    End Sub

    Public Sub New(ByVal message As String)
        MyBase.New(message)
    End Sub

End Class

Sub New(ByVal NomCle As String, ByVal Valeur As String)
    MyBase.New()
    If Valeur.Length = 0 Then Throw New ChaineVideException("Vous ne pouvez pas attribuer une chaine vide comme valeur de clé")
    MyBase.Add(NomCle, Valeur)
End Sub

Imports System.Globalization

Private Shared Function SetFormat(ByVal d As Decimal, ByVal nfi As
 NumberFormatInfo) As String
  Dim format As String= "N"
  Dim sep As String
  sep = CultureInfo.CurrentCulture.NumberFormat.NumberDecimalSeparator
  Try
     Dim s As String = d.ToString()
     Dim i As Integer = s.IndexOf(sep)
     If i >= 0 Then: format &= (s.Length - i - 1).ToString()
     Else: format &= 0.ToString()
     End If
  Catch(ex As Exception)
     Console.WriteLine(ex.Message)
  End Try
  Return d.ToString(format,nfi)
End Sub

Public Class Configuration

    Private Shared _StringConnection As String = ""

    Public Shared Property StringConnection() As String
        Get
            Return _StringConnection
        End Get
        Set(ByVal value As String)
            _StringConnection = value
        End Set
    End Property

End Class

Public Class A

    Private _MaVariable As String = ""

    Public Property MaVariable() As String
        Get
            Return _MaVariable
        End Get
        Set(ByVal value As String)
            _MaVariable = value
        End Set
    End Property

End Class

<rd:Recordbook xmlns:rd="http://myexemple/myschema/record">
  <rd:Records>
    <rd:Record>
      <rd:FirstValue>10</rd:FirstValue>
      <rd:SecondValue>51</rd:SecondValue>
    </rd:Record>
    <rd:Record>
      <rd:FirstValue>25</rd:FirstValue>
      <rd:SecondValue>38</rd:SecondValue>
    </rd:Record>
  </rd:Records>
</rd:Recordbook>

Imports System.Collections.Generic
Imports System.Xml
Imports System.Xml.XPath

Private Function GetXmlNamespaceManager(ByVal nav As XPathNavigator) _
        As XmlNamespaceManager
    Dim mgr As XmlNamespaceManager = Nothing
    nav.MoveToFirstChild
    For Each keyPair As KeyValuePair(Of String, String) In _
            nav.GetNamespacesInScope(XmlNamespaceScope.Local)
        If mgr Is Nothing Then
            mgr = New XmlNamespaceManager(nav.NameTable)
        End If
        mgr.AddNamespace(keyPair.Key, keyPair.Value)
    Next
    nav.MoveToRoot
    Return mgr
End Function
 
Private Sub TraiteXml(ByVal fileName As String)
    Dim doc As XPathDocument = New XPathDocument(fileName)
    Dim nav As XPathNavigator = doc.CreateNavigator
    Dim mgr As XmlNamespaceManager = GetXmlNamespaceManager(nav)
    If Not (mgr Is Nothing) Then
        Dim iter As XPathNodeIterator = nav.Select _
            ("rd:Recordbook/rd:Records/rd:Record", mgr)
        While iter.MoveNext
            Dim firstValue As String = iter.Current.SelectSingleNode _
                ("rd:FirstValue", mgr).Value
            Dim secondValue As String = iter.Current.SelectSingleNode _
                ("rd:SecondValue", mgr).Value
        End While
    End If
End Sub

string monTexte = "du texte" & Environment.NewLine & "du texte ..."

' Créer le FileStream sur le fichier monimage.jpeg
Dim photoStream As FileStream = New FileStream("C:\monimage.jpeg”, FileMode.Open)
' affecter l'image à pictureBox1
pictureBox1.Image = Image.FromStream(photoStream) 
' // libérer les ressources
photoStream.Close 
' supprimer le fichier monimage.jpeg
File.Delete("C:\monimage.jpeg”)

Imports System.Management

Dim disque As ManagementObject = New ManagementObject("win32_logicaldisk.deviceid="c:"") 
disque.Get() 

' Afficher toutes les propriétés du disque
Dim strProp As String = "" 
For Each d As PropertyData In disque.Properties 
 strProp &= d.Name & "" & Environment.NewLine & "" 
Next 

MessageBox.Show(strProp) 

' Obtenir une propriété en particulier
strProp = disque.GetPropertyValue("VolumeSerialNumber").ToString 
MessageBox.Show("n° série volume : " & strProp)

''' <summary>
'''  Méthode résursive qui affiche tous les dossiers, sous-dossiers
'''  et fichiers d'un répertoire
''' </summary>
''' <param name="folder">String : chemin du dossier à explorer</param>
''' <param name="indent">
'''  Int32 : représente le nombre d'espaces à écrire pour indentation
''' </param>
Private Shared Sub WriteFileEntries(ByVal folder As String, ByVal indent As
Int32)
' Créer une indentation du texte
Dim tab As StringBuilder = New StringBuilder([String].Empty)
For i As Integer = 0 To indent - 1
    tab.Append(" ")
Next
' Afficher les dossiers présents et leur contenu par récursivité
Dim subdirs As String() = Directory.GetDirectories(folder)
' SI le dossier contient des sous-dossiers
If subdirs.Length <> 0 Then
    For Each s As String In subdirs
    ' Afficher le nom du dossier à explorer
    Console.WriteLine(tab.ToString() + Path.GetFileName(s))
    'Utiliser la récursivité avec une indentation
    WriteFileEntries(s, indent + 3)
  Next
  End If
' Afficher les noms des fichiers présents
Dim files As String() = Directory.GetFiles(folder)
' SI le dossier contient des fichiers
If files.Length <> 0 Then
    For Each s As String In files
      Console.WriteLine(tab.ToString() + Path.GetFileName(s))
  Next
  End If
End Sub

Imports System.Collections
 
Public Class MyString
    Implements System.Collections.IEnumerable
    Implements System.Collections.IEnumerator
 
    Private string_ As String
    Private i As Integer
 
    Sub New()
        string_ = ""
        i = -1
    End Sub
 
    Sub New(ByVal c As String)
        string_ = c
        i = -1
    End Sub
 
    Public Function GetEnumerator() As System.Collections.IEnumerator
 Implements System.Collections.IEnumerable.GetEnumerator
        Return Me
    End Function
 
    Public ReadOnly Property Current() As Object Implements
 System.Collections.IEnumerator.Current
        Get
            Return string_(i)
        End Get
    End Property
 
    Public Function MoveNext() As Boolean Implements
 System.Collections.IEnumerator.MoveNext
        If i < string_.Length - 1 Then
            i = i + 1
            Return True
        End If
        Return False
    End Function
 
    Public Sub Reset() Implements System.Collections.IEnumerator.Reset
    End Sub
End Class
 
Module Module1
 
    Sub Main()
        Dim maChaine As New MyString("abcd")
        Dim c As Object
        For Each c In maChaine
            Console.WriteLine(c)
        Next
    End Sub
 
End Module

      
Shared Sub Main() 
 MaFonctionVariableEnType("Bonjour") 
 MaFonctionVariableEnType("Bonjour", 2007) 
 MaFonctionVariableEnType("Bonjour", 2007, True) 
 MaFonctionVariableEnType("Bonjour", 2007, True, 10.1) 
End Sub 
Shared Sub MaFonctionVariableEnType(ByRef ParamArray MesParams As Object()) 
 For Each courantObject As Object In MesParams 
   Console.WriteLine("Valeur du paramètre : {0}", courantObject) 
 Next 
End Sub
      
    

      
      Shared Sub Main() 
       MaFonctionVariable("Bonjour") 
       MaFonctionVariable("Bonjour", "Au revoir") 
      End Sub 
      Shared Sub MaFonctionVariable(ByRef ParamArray MesParams As String()) 
        For Each courantString As String In MesParams 
          Console.WriteLine("Valeur du paramètre : {0}", courantString) 
       Next 
      End Sub
      
    

      
      const int maConstante = 2007;
      
    

      
      Dim SharedValue As Integer = 100
      ' Addition
      Interlocked.Add(SharedValue, 10) 
      ' Soustraction
      Interlocked.Add(SharedValue, -10)
      ' Incrémentation
      Interlocked.Increment(SharedValue) 
      ' Décrémentation
      Interlocked.Decrement(SharedValue)
      ' Copie
      Dim SharedValue2 As Integer = 50 
      Interlocked.Exchange(SharedValue, SharedValue2) 
      ' Comparaison et Copie
      ' Comparaison entre paramètres 1 et 3
      ' si égalité, SharedValue = 100
      Interlocked.CompareExchange(SharedValue, 100, 50) 
      ' Lecture
      Dim SharedValueLong As Long = 30 
      Dim ValueSafe As Long = Interlocked.Read(SharedValueLong)
      
    

      
      Thread.Sleep(0)
      
    

      
      NotInheritable Class ClassImpossibleAHeriter 
       ' ...
      End Class
      
    

      
      ' Création de la pile
      Dim maPile As Stack = New Stack 
      ' Ajout de 2 entiers
      maPile.Push(5) 
      maPile.Push(10) 
      ' Affiche succesivement 10 puis 5
      Console.WriteLine("Valeur {0}", maPile.Pop) 
      Console.WriteLine("Valeur {0}", maPile.Pop)
      
    

      
      ' maValeurHexa contient 64
       Dim maValeurHexa as Integer = 0x40;
      
    

      
Class ExempleMe 
 Private MonString As String 

 Public Sub New() 
   MonString = "Hello" 
 End Sub 

 Private Function ReturnWorld() As String 
   Return "World" 
 End Function 

 Public Sub DisplayHelloWorld() 
   Dim message As String = Me.MonString & " " & Me.ReturnWorld 
   Console.WriteLine(message) 
 End Sub 
End Class
      
    

      
      ' Met un verrou sur this
      [FONT=Courier New]Monitor.Enter(Me) [/FONT]

      ' ...

      ' Retire le verrou sur this
      [FONT=Courier New]Monitor.Exit(Me)[/FONT]
      
    

      

Public Shared Sub Main() 
 For Each Mi As MemberInfo In GetType(Customer).GetMembers 
   If Mi.MemberType = MemberTypes.Method Then 
     Console.WriteLine("Méthode : {0}", Mi.ToString) 
   Else 
     If Mi.MemberType = MemberTypes.Field Then 
       Console.WriteLine("Champs : {0}", Mi.ToString) 
     Else 
       If Mi.MemberType = MemberTypes.Constructor Then 
         Console.WriteLine("Constructeur : {0}", Mi.ToString) 
       End If 
     End If 
   End If 
 Next 
End Sub 

Public Class Customer 
 Public Id As Integer 
 Public Name As String 

 Public Sub MethodA(ByVal paramA As String, ByVal paramB As Integer) 
 End Sub 
End Class 
      
    

      
Dim monString As String = "Ceci est un test !" 
If TypeOf monString Is String Then 
 Console.WriteLine("monString est bien de type String !") 
Else 
 Console.WriteLine("monString n'est pas de type String !") 
End If
      
    

      
Class Customer 
End Class 
Class Vendor 
End Class 
Public Shared Sub Main() 
 Dim obj As Object = New Vendor 
 Dim testCustomer As Object = CType(ConversionHelpers.AsWorkaround(obj, GetType(Customer)), Customer) 
 Dim testVendor As Object = CType(ConversionHelpers.AsWorkaround(obj, GetType(Vendor)), Vendor) 
 If testCustomer Is Nothing Then 
   Console.WriteLine("L'objet testé n'est pas de type Customer !") 
 Else 
   Console.WriteLine("L'objet testé est de type Customer !") 
 End If 
 If testVendor Is Nothing Then 
   Console.WriteLine("L'objet testé n'est pas de type Vendor !") 
 Else 
   Console.WriteLine("L'objet testé est de type Vendor !") 
 End If 
End Sub
      
    

    
      Dim maMesureDeTemps As Stopwatch = New Stopwatch 
      ' Démarrage de l'intervalle de temps
      maMesureDeTemps.Start 
      ' ...
      ' Fin de l'intervalle de temps
      maMesureDeTemps.Stop 
      Console.WriteLine("L'exécution du code a pris : {0}", maMesureDeTemps.Elapsed.ToString)
      
    

      
      ' Création de la file
      Dim maFile As Queue = New Queue 
      ' Ajout de 2 chaînes de caractères
      maFile.Enqueue("Bonjour") 
      maFile.Enqueue("Au revoir") 
      ' Affiche succesivement "Bonjour" puis "Au revoir"
      Console.WriteLine("Valeur {0}", maFile.Dequeue) 
      Console.WriteLine("Valeur {0}", maFile.Dequeue)
      
    

      
      Class DifferentsMain 
      
          ' Méthode sans paramètres
          ' Ni code de retour
 	  Public Shared Sub Main() 
	  End Sub 

          ' Méthode sans paramètres
          ' Avec code de retour
	  Public Shared Function Main() As Integer 
 	   Return 0 
	  End Function 

          ' Méthode avec paramètres
          ' Mais sans code de retour
	  Public Shared Sub Main(ByRef ParamArray param As String()) 
 	  End Sub 

          ' Méthode avec paramètres
          ' Et code de retour
	  Public Shared Function Main(ByRef ParamArray param As String()) As Integer 
	    Return param.Length 
	  End Function 
	 End Class
      
    

      
      Dim DateCourante As DateTime = DateTime.Now 
      Dim DateCreationquestion As DateTime = New DateTime(2007, 1, 3) 

      Dim Ts As TimeSpan = DateCourante - DateCreationquestion 
      Console.WriteLine("Il s'est écoulé {0} jour(s) depuis la création de cette question !", Ts.Days)
      
    

      
      Const maConst As Integer = 2007 
      ReadOnly monReadOnly As String 
      Public Sub New(ByVal monParam As String) 
       monReadOnly = monParam 
      End Sub
      
    

      
      Dim value As Integer = 8 
      Dim res As Integer 
      
      Console.WriteLine("La valeur de départ vaut {0}", value) 
      ' Décalage vers la gauche
      ' res est multiplié par 2
      res = value << 1 
      Console.WriteLine("Après un décalage de 1 vers la gauche, res vaut {0}", res)
      ' Décalage vers la droite
      ' res est divisé par 2
      res = value >> 1
      Console.WriteLine("Après un décalage de 1 vers la droite, res vaut {0}", res)
      ' Décalage vers la gauche
      ' res est multiplié par 4
      res = value << 2
      Console.WriteLine("Après un décalage de 2 vers la gauche, res vaut {0}", res)
      
    

      
 ' Création du tableau de 3 bits
 ' Les 3 valeurs sont initialisées à false
 Dim monTableauBits(3) As BitArray 
 
 ' Accès à l'index 1
 monTableauBits(1) = True 
 'Affiche false, true puis false
 For Each curBool As Boolean In monTableauBits 
  Console.WriteLine("Valeur : {0}", curBool) 
 Next
        
    

      
Class Employee 
 Private PrenomNom As String 
 Public Sub New(ByVal param_PrenomNom As String) 
   PrenomNom = param_PrenomNom 
 End Sub 
 Public Sub New(ByVal param_Prenom As String, ByVal param_Nom As String) 
   MyClass.New(param_Prenom + " " + param_Nom) 
 End Sub 
End Class
      
    

Namespace ConsoleApplication1 
    Public Class Test 
    End Class 
    
    Class Program 
        Private Shared Sub Main(ByVal args As String()) 
            ' Récupération du type à instancier dynamiquement 
            Dim objType As System.Type = GetType(Test) 
            
            ' Instance dynamique à partir du type donné 
            Dim objInstanceDynamique As Object = System.Activator.CreateInstance(objType) 
            
            ' Casting de l'objet 
            Dim objTest As Test = TryCast(objInstanceDynamique, Test) 
        End Sub 
    End Class 
End Namespace 

      Dim monObject As Object
        Dim monInt As Int32

        monInt = 100

        monObject = monInt

        monInt = monObject
    

      monInt = CType(monObject, Int32)
    

Dim g As System.Drawing.Graphics = TextBox1.CreateGraphics() 'crée un objet graphics
        Dim objSizeF As System.Drawing.SizeF = g.MeasureString(TextBox1.Text, TextBox1.Font) 'récupère la taille 
        MessageBox.Show(String.Format("Votre texte '{0}' a une longueur de {1} pixels.", TextBox1.Text, objSizeF.Width)) 'affiche le resultat

       ' Création de la requête
        Dim objWebRequest As System.Net.WebRequest = System.Net.HttpWebRequest.Create("http://dotnet.developpez.com")
        ' Envoi de la requête au serveur
        Dim objWebResponse As System.Net.WebResponse = objWebRequest.GetResponse()
        ' Stream pour récupérer le résultat
        Dim objStreamReader As System.IO.StreamReader = Nothing

        Try
            ' Récupération du résultat
            objStreamReader = New System.IO.StreamReader(objWebResponse.GetResponseStream())
            ' Lecture du résultat
            TextBox1.Text = objStreamReader.ReadToEnd()
        Finally
            ' Fermeture de la connexion
            If Not objWebResponse Is Nothing Then
                objWebResponse.Close()
            End If
        End Try

Namespace ConsoleApplication1
    Public Interface IMonInterface
    End Interface

    Public Class Test
        Implements IMonInterface
    End Class

    Class Program
        Shared Sub Main(ByVal args() As String)
            Dim objType As System.Type = Type.GetType(Test)
            Dim objTypeInterface As System.Type = objType.GetInterface("ConsoleApplication1.IMonInterface", False)

            If Not objTypeInterface Is Nothing Then
                System.Console.WriteLine("La classe 'Test' implémente l'interface 'IMonInterface' !")
            Else
                System.Console.WriteLine("La classe 'Test' n'implémente pas l'interface 'IMonInterface' !")
            End If
        End Sub
    End Class
End Namespace

Namespace ConsoleApplication1 
    Public Class Test 
    End Class 
    
    Class Program 
        Private Shared Sub Main(ByVal args As String()) 
            ' Récupération du type à instancier dynamiquement à partir d'une chaîne de caractères 
            Dim objType As System.Type = System.Type.[GetType]("ConsoleApplication1.Test") 
            
            ' Vérification si le type a bien été retrouvé 
            If objType IsNot Nothing Then 
                ' Instance dynamique à partir du type donné 
                Dim objInstanceDynamique As Object = System.Activator.CreateInstance(objType) 
                
                ' Casting de l'objet 
                Dim objTest As Test = TryCast(objInstanceDynamique, Test) 
            Else 
                System.Console.WriteLine("Le type semble être incorrect!") 
            End If 
        End Sub 
    End Class 
End Namespace 

<Serializable()> _ 
Public Class classA 
    Private m_MembreInt As Integer = 0 
    Private m_B As classB = Nothing 
    
    Public Property MembreInt() As Integer 
        Get 
            Return m_MembreInt 
        End Get 
        Set 
            m_MembreInt = value 
        End Set 
    End Property 
    
    Public Property B() As classB 
        Get 
            Return m_B 
        End Get 
        Set 
            m_B = value 
        End Set 
    End Property 
End Class 

<Serializable()> _ 
Public Class classB 
    Private m_MembreFloat As Single = 0 
    Private m_A As classA = Nothing 
    
    Public Property MembreFloat() As Single 
        Get 
            Return m_MembreFloat 
        End Get 
        Set 
            m_MembreFloat = value 
        End Set 
    End Property 
    
    Public Property A() As classA 
        Get 
            Return m_A 
        End Get 
        Set 
            m_A = value 
        End Set 
    End Property 
End Class

Dim objA As New classA() 
Dim objB As New classB() 

objA.B = objB 
objB.A = objA 

Serialize(objA)

Référence circulaire détectée lors de la sérialisation d'un objet de type ConsoleApplication2.classA.

<System.Xml.Serialization.XmlIgnore()> _ 
Public Property B() As classB 
    Get 
        Return m_B 
    End Get
    Set 
        m_B = value 
    End Set 
End Property 


<System.Xml.Serialization.XmlIgnore()> _ 
Public Property A() As classA 
    Get 
        Return m_A 
    End Get 
    Set 
        m_A = value 
    End Set 
End Property 

' S'abonne à l'évènement permettant d'être averti qu'un thread génère une exception
        AddHandler System.Windows.Forms.Application.ThreadException, AddressOf Application_ThreadException
 
    ''' <summary>
    ''' Lancé lorsque un thread n'intercepte pas une exception qu'il a généré
    ''' </summary>
    Shared Sub Application_ThreadException(ByVal sender As Object, ByVal e As System.Threading.ThreadExceptionEventArgs)
        MessageBox.Show("L'exeption générée est : " + e.Exception.Message)
    End Sub

Dim val As Integer = 510
        Dim binaryVal As String = Convert.ToString(val, 2)
        MsgBox("The value of " & val & " is " & binaryVal & ".", MsgBoxStyle.Information)

Imports Microsoft.Win32

	

    Public Function AGetExtentionDescription(ByVal ext As String) As String
        Dim description As String = GetExtentionDescription(ext)
        If description Is Nothing OrElse description = "" Then
            Return [String].Format("Fichier {0}", ext)
        Else
            Return description
        End If
    End Function

    Public Function GetExtentionDescription(ByVal ext As String) As String
        If ext Is Nothing OrElse ext = "" OrElse ext = "." Then
            Return Nothing
        End If

        Dim description As String = ""

        Try
            Dim keyDesc As RegistryKey = Registry.ClassesRoot.OpenSubKey(ext, False)
            If keyDesc Is Nothing Then
                Return Nothing
            Else
                Try
                    If keyDesc.GetValueKind("") <> RegistryValueKind.[String] Then
                        Return Nothing
                    Else
                        description = TryCast(keyDesc.GetValue(""), String)
                        If description Is Nothing OrElse description = "" Then
                            Return Nothing
                        End If

                        Dim optionnalRedirection As RegistryKey = Registry.ClassesRoot.OpenSubKey(description, False)
                        If optionnalRedirection Is Nothing Then
                            Return description
                        Else
                            Try
                                If optionnalRedirection.GetValueKind("") <> RegistryValueKind.[String] Then
                                    Return description
                                Else
                                    Return TryCast(optionnalRedirection.GetValue(""), String)
                                End If
                            Finally
                                If Not optionnalRedirection Is Nothing Then
                                    optionnalRedirection.Close()
                                End If
                            End Try
                        End If
                    End If
                Finally
                    If Not keyDesc Is Nothing Then
                        keyDesc.Close()
                    End If
                End Try
            End If
        Catch
            Return Nothing
        End Try
    End Function
    Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
        MessageBox.Show(AGetExtentionDescription(".exe"))
        MessageBox.Show(AGetExtentionDescription(".jpg"))
        MessageBox.Show(AGetExtentionDescription(".dat"))
        MessageBox.Show(AGetExtentionDescription(".iso"))
        MessageBox.Show(AGetExtentionDescription(".bmp"))
    End Sub
	

    Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        If e.Control And e.KeyCode = Keys.M Then
            MsgBox("VOus avez appuyer sur Ctrl + M")
        End If
    End Sub