Dim ver As FileVersionInfo = FileVersionInfo.GetVersionInfo(Environment.GetCommandLineArgs()(0))
        Dim MyVer as String = ver.FileMajorPart & "." & ver.FileMinorPart & "." & ver.FileBuildPart & "." & ver.FilePrivatePart

            'Version Framework
            Dim ver as Version = Environment.Version
            Console.WriteLine("Version Framework = {0}", ver)

            'Version du système d'exploitation
            Dim ver as Version = Environment.OSVersion
            Console.WriteLine("Version Framework = {0}", ver)

'Chemin de l'éxécutable
'Pour les WinForm, on peut aussi utiliser Application.ExecutablePath
Dim exepath As String = Environment.GetCommandLineArgs()(0) 
'Répertoire de l'executable
Dim exedir As String = exepath.Substring(0, exepath.LastIndexOf("\"c))

    'Répertoire courant
    Console.WriteLine("Le repertoire courant est : {0}", Environment.CurrentDirectory)

    'Repertoire systeme
    Console.WriteLine("Repertoire systeme = {0}", Environment.SystemDirectory)

    Console.WriteLine("Nom utilisateur = {0}", Environment.UserName)

    Console.WriteLine("Mémoire allouée au process en cours = {0} octets", Environment.WorkingSet)

    Console.WriteLine("La ligne de commande est : {0}", Environment.CommandLine)

        'Arguments de ligne de commande
        Console.WriteLine("Arguments de ligne de commande")
        Dim i As Integer
        Dim args As String() = Environment.GetCommandLineArgs()
        Dim j As Integer = args.Length
        For i = 0 To j - 1
            Console.WriteLine("Args({0}) = {1}", i, args(i))
        Next

        Dim env As IDictionary = Environment.GetEnvironmentVariables()
        'Pour afficher une variable dont on connait le nom
        Console.WriteLine("USERNAME = {0}", env("USERNAME"))
        'Pour lister toutes les variables
        Dim en As IEnumerator = env.Keys.GetEnumerator()
        While en.MoveNext
            Console.WriteLine("{0} = {1}", en.Current, env(en.Current()))
        End While

        'Répertoire spéciaux
        Console.WriteLine("Répertoire spéciaux")
        Dim specfolderenum As Array = [Enum].GetValues(GetType(Environment.SpecialFolder))
        For i As Integer = 0 To specfolderenum.Length - 1
            Console.WriteLine(Environment.GetFolderPath(CType(specfolderenum.GetValue(i), Environment.SpecialFolder)))
        Next

        'Lecteurs logiques
        Console.WriteLine("Lecteurs logiques")
        Dim drives() As String = Environment.GetLogicalDrives()
        For i As Integer = 0 To drives.Length - 1
            Console.WriteLine(drives(i))
        Next

Imports System.Threading

Class SingleInstanceApp
    Implements IDisposable

    Private _siMutex As Mutex
    Private _siMutexOwned As Boolean

    Public Sub New(ByVal name As String)
        _siMutex = New Mutex(False, name)
        _siMutexOwned = False
    End Sub

    Public Function IsRunning() As Boolean
        _siMutexOwned = _siMutex.WaitOne(0, True)
        Return Not (_siMutexOwned)
    End Function

    Public Sub Dispose() Implements System.IDisposable.Dispose
        If _siMutexOwned Then
            _siMutex.ReleaseMutex()
        End If
    End Sub

End Class

Shared Sub Main()
    Dim app As SingleInstanceApp = New SingleInstanceApp("{123456789 - ABCD - EFEG - XXXX}")
    Try
        If app.IsRunning Then
            MessageBox.Show("Application déjà lancée")
        Else
            Application.Run(New Form1)
        End If
    Finally
        CType(app, IDisposable).Dispose()
    End Try
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

    'Dim rnd As New Random(100) ' Pour générer toujours la même séquence, on passe la même valeur au constructeur.

    'Initialisation par défaut basée sur le temp. La séquence est différente à chaque fois.
    Dim rnd As New Random  

    'Génération de 15 nombres aléatoires compris entre 0 et 255 (Type Byte)
    Dim rndNumbers As Byte() = New Byte(14) {}
    rnd.NextBytes(rndNumbers)
    ListBox1.Items.Clear()
    For i As Byte = 0 To 14
        ListBox1.Items.Add(rndNumbers(i))
        'On peut aussi faire un modulo pour n'obtenir que des nombres entre 0 et 100 par exemples
        ListBox2.Items.Add(IIf(rndNumbers(i) > 100, rndNumbers(i) Mod 100, rndNumbers(i)))
    Next

    'Pour Générer des nombres aléatoire de type Integer
    Dim i As Integer = rnd.Next()
    Dim j As Integer = rnd.Next(500, 1000) 'j sera compris entre 500 et 1000

    'Pour générer des nombre aléatoire de type Double
    'd sera compris entre 0,0 et 1,0. 
'Il suffit de combiner cet appel à celui de Next() pour avoir des doubles supérieurs à 1,0   
    Dim d As Double = rnd.NextDouble()  
End Sub

'Instance de la classe Process
Dim proc As New System.Diagnostics.Process()
'Nom de l'executable à lancer
proc.StartInfo.FileName = "iexplore.exe"
'Arguments à passer à l'éxécutable à lancer
proc.StartInfo.Arguments="http://www.developpez.com"
'Démarrage du processus
proc.Start() 
'On libère les ressources dont on a plus besoin.
proc.Close() 'Attention Close ne met pas fin au processus.

'Instance de la classe System.Diagnostics.Process
Dim proc As New Process()
'Nom du fichier dont l'extension est connue du shell à ouvrir
proc.StartInfo.FileName = "monfichier.txt"
'Démarrage du processus. Notepad (si il est associé aux fichiers .txt) sera alors lancé et ouvrira le fichier monfichier.txt
proc.Start() 
'On libère les ressources
proc.Close()

        Dim proc As New Diagnostics.Process
        'On désactive le shell
        proc.StartInfo.UseShellExecute = False
        'On redirige la sortie standard
        proc.StartInfo.RedirectStandardOutput = True
        'On définit la commande 
        proc.StartInfo.FileName = "mem.exe"
        'Démarrage de la commande
        proc.Start()
        'Lecture de la sortie de la commande
        Dim output As String = proc.StandardOutput.ReadToEnd()
        Console.WriteLine(output)
        'Attente de la fin de la commande
        proc.WaitForExit()
        'Libération des ressources
        proc.Close()

'Pour tous les processus en cours sur l'ordinateur local
Dim prc as System.Diagnostics.Process() = Process.GetProcesses()
'Pour tous les processus notepad en cours sur l'ordinateur local
Dim prc as System.Diagnostics.Process() = Process.GetProcessesByName("notepad")

'Pour les applications consoles
proc.Kill()
proc.Close() 'Libération des ressources

'Pour les applications avec une interface graphique (et donc une pompe de messages)
proc.CloseMainWindow() 'Si l'appel échoue, on peut alors forcer la fermeture avec Kill.
proc.Close() 'Libération des ressources

'Conversion d'un entier vers une chaine de caractère
Dim i as Integer = 10
Dim s as string = Convert.ToString(i)

'Conversion d'une chaine vers un entier
i = Convert.ToInt32(s)
'Notez que si la conversion ne peut se faire, une exception est levée. Ce serait le cas si s = "NonNumérique"

Dim s as String = "35000"
Dim i as Integer = Integer.Parse(s)

Dim s as string = "35000"
Dim i as Integer = CType(s, Integer)

Dim s as String = "35000"
Dim i As Integer = CStr(s)

Public Class SaisiTexte

    Private Shared _Texte As String

    Public Shared Sub Main()
        Console.WriteLine("Saisissez un texte: ")
        _Texte = Console.ReadLine
        Console.WriteLine("Vous avez écrit : " + _Texte)
    End Sub

End Class

System.GC.Collect()

Imports System.Runtime.InteropServices

class Class1

Private Declare Function FlashWindow Lib "user32.dll" ( _ 
 ByVal hwnd As Integer, _ 
 ByVal bInvert As Integer) As Integer
 
End class

Dim c As Char = Convert.ToChar(0)

Public Function CheckIpAddr(ByVal ipAddress As String) As Boolean

    Dim re As String = "^(25[0-5]|2[0-4]\d|[0-1]?\d?\d)(\.(25[0-5]|2[0-4]\d|[0-1]?\d?\d)){3}$"
    Return Regex.IsMatch(ipAddress, re)
    
End Function

Public Function CheckIpAddrNoRegex(ByVal ipAddress As String) As Boolean

    Dim ipPartList As String()

    If ipAddress Is Nothing OrElse ipAddress = "" Then
        Return False
    End If

    ipPartList = ipAddress.Split("."c)
    If Not (ipPartList.Length = 4) Then
        Return False
    End If

    Try
        Dim ipPartNumber As Byte = Convert.ToByte(ipPartList(0))
        ipPartNumber = Convert.ToByte(ipPartList(1))
        ipPartNumber = Convert.ToByte(ipPartList(2))
        ipPartNumber = Convert.ToByte(ipPartList(3))
    Catch
        Return False
    End Try

    Return True

End Function