Function decode_List(str_Var As String, lst As List(Of Object)) As String
 
        ' Vide la liste
        lst.Clear()
 
        ' Eclate la chaine récupérée en liste de clés
        Dim lstSplit As List(Of String) = str_Var.Split(New Char() {","c}, StringSplitOptions.RemoveEmptyEntries).ToList()
 
        ' Remplit la liste avec les clés stockées
        For Each s As String In lstSplit
            Dim obj As New ???
            obj.Code = CInt(s)
            lst.Add(obj)
        Next
 
    End Function

Private Sub BtnOPEN_Click(sender As Object, e As EventArgs) Handles BtnOPEN.Click
 
    Dim ObjConnection As SqlConnection
 
    ObjConnection = New SqlConnection("Server=localhost\SQLEXPRESS;User Id=toto;Password=xxxx;Database=Test1;")
 
    Try
        ObjConnection.Open()
        MessageBox.Show("Ouverture Ok")
 
    Catch ex As Exception
        MessageBox.Show(ex.Message)
 
    Finally
        ObjConnection.Close()
        ObjConnection.Dispose()
        ObjConnection = Nothing
 
    End Try
 
End Sub

Private Sub BtnDROP_Click(sender As Object, e As EventArgs) Handles BtnDROP.Click
 
        Dim ObjConnection As SqlConnection
        Dim ObjCMD As SqlCommand
 
        ObjConnection = New SqlConnection("Server=localhost\SQLEXPRESS;User Id=toto;Password=xxxx;")
        ObjConnection.Open()
 
        ObjCMD = ObjConnection.CreateCommand
        ObjCMD.CommandText = "DROP DATABASE IF EXISTS Test1;"
 
        Try
            ObjCMD.ExecuteNonQuery()
            MessageBox.Show("DROP Ok")
 
        Catch ex As Exception
            MessageBox.Show(ex.Message)
 
        Finally
            ObjCMD.Dispose()
            ObjCMD = Nothing
            ObjConnection.Close()
            ObjConnection.Dispose()
            ObjConnection = Nothing
 
        End Try
 
    End Sub

Public Class Form1
 
    Dim Mois() As String
    Dim Couleur() As String
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
        Mois = {"Janvier", "Février", "Mars"}
        Couleur = {"Bleu", "Blanc", "Rouge"}
 
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
 
        Me.ListBox1.DataSource = Nothing
        Me.ListBox1.DataSource = Mois
 
    End Sub
 
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
 
        Me.ListBox1.DataSource = Nothing
        Me.ListBox1.DataSource = Couleur
 
    End Sub
 
End Class

Public Class Classe1
 
    Public Property Nom As String
 
    Private _Prenom As String
    Public Property Prenom() As String
        Get
            Return _Prenom
        End Get
        Set(ByVal value As String)
            Dim PrenomChangedEventArgs As New Classe1EventArgs With {.Prenom = value}
            OnPrenomChanged(PrenomChangedEventArgs)
            If PrenomChangedEventArgs.Annule = False Then
                _Prenom = value
            End If
        End Set
    End Property
 
    Public Event PrenomChanged(ByVal sender As Object, ByVal e As Classe1EventArgs)
 
    Private Sub OnPrenomChanged(e As Classe1EventArgs)
        RaiseEvent PrenomChanged(Me, e)
    End Sub
 
End Class
 
Public Class Classe1EventArgs
    Inherits EventArgs
 
    Public Property Prenom As String
    Public Property Annule As Boolean
 
End Class

Private Class SingleTonTest
 
        Private Sub New()
            Nom = ""
        End Sub
 
        Public Shared Property toto As SingleTonTest = New SingleTonTest()
 
        Public Property Nom As String
        Public Property Age As Short
 
    End Class

Public Class Classe1
 
    Implements System.Collections.Generic.IComparer(Of Classe1)
 
    Public Property Nom() As String
    Public Property Ville() As String
 
    Private Function Compare(x As Classe1, y As Classe1) As Integer Implements IComparer(Of Classe1).Compare
        Return x.Nom.CompareTo(y.Nom)
    End Function
 
    Public Shared Function Trier() As IComparer(Of Classe1)
        Return New Classe1()
    End Function
 
End Class

        Dim ObjMediaControl As IMediaControl
 
        ObjMediaControl = CType(objFilterGraph, IMediaControl)
 
        ObjMediaControl.Stop()

	Marshal.ReleaseComObject(ObjMediaControl)
	ObjMediaControl = Nothing

Dim NewObjet As Struct1
 
NewObjet = New Struct1
NewObjet.Nom = "Toto"
NewObjet.Age = 145
Me.ListBoxNom.Items.Add(NewObjet)

Dim NewObjet As Struct1
 
Idx = Me.ListBoxNom.SelectedIndex
NewObjet = New Struct1
NewObjet.Age = Me.TextBoxAge.Text
NewObjet.Ville = Me.TextBoxVille.Text
Me.ListBoxNom.Items.Remove(Me.ListBoxNom.SelectedItem)
Me.ListBoxNom.Items.Insert(Idx, NewObjet)

Dim NewObjet As Struct1
 
NewObjet = CType(Me.ListBoxNom.SelectedItem, Struct1)
NewObjet.Age = Me.TextBoxAge.Text
NewObjet.Ville = Me.TextBoxVille.Text
Me.ListBoxNom.Items.Item(Me.ListBoxNom.SelectedIndex) = NewObjet

Private Sub LVCredits_MouseMove(sender As Object, e As MouseEventArgs) Handles LVCredits.MouseMove
        Dim InfoBulle As New System.Windows.Forms.ToolTip
        Dim tooltipText As String = ""
        Dim info As ListViewHitTestInfo = LVCredits.HitTest(e.X, e.Y)
 
        If info.Item IsNot Nothing Then
            ' info-bulle pour l'élément ou sous-élément survolé
            If info.SubItem IsNot Nothing Then
                tooltipText = info.Item.Text & "  " & info.SubItem.Text
            End If
            Label1.Text = tooltipText
            InfoBulle.SetToolTip(LVCredits, tooltipText)
        Else
            InfoBulle.SetToolTip(LVCredits, "")
        End If
 
    End Sub

 
 
Imports Microsoft.Office.Interop
Imports System.IO
Imports System.Text.RegularExpressions
Imports System.Runtime.InteropServices
Imports Outlook = Microsoft.Office.Interop.Outlook
Imports Microsoft.VisualBasic
 
 
Partial Class Form1
    Inherits Form
 
    '####################   S'assurer que OUTLOOK est bien actif et trouve une fenêtre  ####################
    Private Function GetSelectedMail() As Outlook.MailItem
 
        Dim app As Object = Nothing
 
        Try
            app = GetObject(, "Outlook.Application")
        Catch
            Return Nothing
        End Try
 
        If app Is Nothing Then Return Nothing
 
 
        Try
            AppActivate("Outlook")
            Threading.Thread.Sleep(150)
        Catch
            ' Outlook pas trouvé
        End Try
 
 
        Dim insp As Outlook.Inspector = Nothing
        Try
            insp = app.ActiveInspector()
        Catch
        End Try
 
        If insp IsNot Nothing Then
            Dim openedMail As Outlook.MailItem =
            TryCast(insp.CurrentItem, Outlook.MailItem)
            If openedMail IsNot Nothing Then
                Return openedMail
            End If
        End If
 
 
        Dim explorer As Outlook.Explorer = app.ActiveExplorer()
        If explorer Is Nothing Then Return Nothing
        If explorer.Selection Is Nothing OrElse explorer.Selection.Count = 0 Then Return Nothing
 
        Return TryCast(explorer.Selection(1), Outlook.MailItem)
 
    End Function
 
    'Private Function GetSelectedMail() As Outlook.MailItem
    '    Dim app As New Outlook.Application()
    '    Dim explorer As Outlook.Explorer = app.ActiveExplorer()
 
    '    If explorer Is Nothing Then Return Nothing
    '    If explorer.Selection Is Nothing OrElse explorer.Selection.Count = 0 Then Return Nothing
 
    '    Return TryCast(explorer.Selection(1), Outlook.MailItem)
    'End Function
 
    '#######################################################################################################
 
    Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
        For Each p As Process In Process.GetProcessesByName("MACROMAIL")
            Try
                p.Kill()
            Catch
            End Try
        Next
    End Sub
    '##############################   Format d'enregistrement   ############################################
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ' Ne rien faire au chargement
    End Sub
 
    '#######################################################################################################
 
 
    Private Function SanitizeFileName(fileName As String) As String
        Dim invalidChars As Char() = System.IO.Path.GetInvalidFileNameChars()
        For Each c As Char In invalidChars
            Select Case c
                Case "/"c
                    fileName = fileName.Replace(c, "-"c)
                Case ";"c, ","c
                    fileName = fileName.Replace(c, "."c)
                Case Else
                    fileName = fileName.Replace(c, "_"c) ' Remplace les autres caractères invalides par un underscore
            End Select
        Next
        Return fileName
    End Function
 
 
 
    '##################################################################
 
    Private Sub BoutonChercher_Click(sender As Object, e As EventArgs) Handles BoutonChercher.Click
 
        Dim CheminAffaire = TrouverCheminAffaire(TBNumAff.Text)
 
        If CheminAffaire <> String.Empty Then
            TBPath.Text = CheminAffaire
        Else
            MessageBox.Show("Aucune affaire trouvée.")
        End If
 
    End Sub
    Private Function TrouverCheminAffaire(numAff As String) As String
 
        If String.IsNullOrWhiteSpace(numAff) Then Return String.Empty
 
        Dim dossierRacine As String = "N:\"
        Dim anneeCourante As Integer = Date.Now.Year
        Dim anneeMin As Integer = 2010
 
        For annee As Integer = anneeCourante To anneeMin Step -1
 
            Dim dossierAnnee As String = Path.Combine(dossierRacine, "AFFAIRE " & annee)
 
            If Directory.Exists(dossierAnnee) Then
                For Each dossierAffaire As String In Directory.GetDirectories(dossierAnnee)
                    If Path.GetFileName(dossierAffaire).Contains(numAff) Then
                        Return dossierAffaire
                    End If
                Next
            End If
        Next
 
        Return String.Empty
 
    End Function
 
 
 
 
    '########################   Sélectionner le dossier manuellement  ####################################
 
    Private Sub BoutonPath_Click(sender As Object, e As EventArgs) Handles BoutonPath.Click
 
        Dim folderDialog As New FolderBrowserDialog()
 
 
        If folderDialog.ShowDialog() = DialogResult.OK Then
            TBPath.Text = folderDialog.SelectedPath ' Remplacer TBPath par le nom réel de votre TextBox
        End If
 
    End Sub
 
    '########################   Rafraîchir le nom du fichier   ############################################
 
    Private Sub BoutonRefresh_Click(sender As Object, e As EventArgs) Handles BoutonRefresh.Click
 
        Dim mailItem As Outlook.MailItem = GetSelectedMail()
 
        If mailItem Is Nothing Then
            MessageBox.Show("Veuillez sélectionner un email dans Outlook.")
            Exit Sub
        End If
 
        Dim dateFormat As String = mailItem.SentOn.ToString("yyyy MM dd")
        Dim envoyeur As String = If(mailItem.SenderEmailAddress, "Expéditeur inconnu")
 
        Dim recipients As String = ""
        If Not String.IsNullOrWhiteSpace(mailItem.To) Then
            recipients = String.Join(", ",
            mailItem.To.Split(";"c).Select(Function(s) s.Trim()))
        End If
 
        Dim cc As String = ""
        If Not String.IsNullOrWhiteSpace(mailItem.CC) Then
            cc = String.Join(", ",
            mailItem.CC.Split(";"c).Select(Function(s) s.Trim()))
        End If
 
        Dim subject As String = If(mailItem.Subject, "")
 
        Dim fileName As String = $"{dateFormat} - {envoyeur} à {recipients} - {cc} - {subject}"
        TBName.Text = SanitizeFileName(fileName)
 
    End Sub
 
 
 
 
    Private Sub BoutonSave_Click(sender As Object, e As EventArgs) Handles BoutonSave.Click
 
        If String.IsNullOrWhiteSpace(TBPath.Text) OrElse String.IsNullOrWhiteSpace(TBName.Text) Then
            MessageBox.Show("Veuillez renseigner un chemin et un nom de fichier.")
            Exit Sub
        End If
 
        Dim mailItem As Outlook.MailItem = GetSelectedMail()
 
        If mailItem Is Nothing Then
            MessageBox.Show("Veuillez sélectionner un email dans Outlook.")
            Exit Sub
        End If
 
        Dim savePath As String = Path.Combine(TBPath.Text, TBName.Text & ".msg")
 
        mailItem.SaveAs(savePath, Outlook.OlSaveAsType.olMSG)
        MessageBox.Show("Email sauvegardé avec succès !")
 
    End Sub
 
 
 
    Private Sub BoutonComm_Click(sender As Object, e As EventArgs) Handles BoutonComm.Click
 
 
        Dim CheminAffaire As String = TrouverCheminAffaire(TBNumAff.Text)
 
        If CheminAffaire <> String.Empty Then
            TBPath.Text = CheminAffaire & "1 - COMMERCIAL"
        Else
            MessageBox.Show("Aucune affaire trouvée.")
        End If
 
    End Sub
 
    Private Sub BoutonBE_Click(sender As Object, e As EventArgs) Handles BoutonBE.Click
 
 
        Dim CheminAffaire As String = TrouverCheminAffaire(TBNumAff.Text)
 
        If CheminAffaire <> String.Empty Then
            TBPath.Text = CheminAffaire & "1 - BE"
        Else
            MessageBox.Show("Aucune affaire trouvée.")
        End If
 
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Hide()
    End Sub
 
End Class