Dim Recovery_Items As New List(Of Tuple(Of Integer, String, String))()
 
    Private Sub Recovery_Timer_Tick() Handles Recovery_Timer.Tick
 
        Recovery_Items.Clear()
 
        For Each item As ListViewItem In ListView_Monitor.Items
            Recovery_Items.Add(Tuple.Create(item.Index, item.SubItems(1).Text, item.SubItems(2).Text))
        Next
 
        IO.File.WriteAllText("Recovery.tmp", String.Join(vbNewLine, Recovery_Items), System.Text.Encoding.Default)
 
    End Sub

(0, Valor1, Valor2)
(1, V-a-l-o-r-1, V-a-l-o-r-2)
(2, V,a,l,o,r,1, V,a,l,o,r,2)

    Private Sub Recovery()
 
        If IO.File.Exists("Recovery.tmp") Then
 
            For Each Line As String In IO.File.ReadAllLines("Recovery.tmp")
                ListView_Monitor.Items.Add(TryCast(Line, ListViewItem))
            Next
 
        End If
 
    End Sub

Dim Recovery_Items As Tuple(Of Integer, String, String)

Dim Recovery_Items As New Dictionary(Of Integer, String, String)

Public Class Form1
 
    Dim isbinded As Boolean = False
    Dim Winamp As clsWACC = New clsWACC
    Dim WithEvents mytimer As New Timer With {.Interval = 50, .Enabled = True}
 
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles mytimer.Tick
        isbinded = Winamp.Bind()
        ' Label1.Text = isbinded
        ' isbinded = Nothing
    End Sub
 
End Class

        Public Sub New(ByVal handle As IntPtr, ByVal str As String)
            'opens the process
            hWinamp = OpenProcess(DAccess.PROCESS_ALL_ACCESS, False, waPID)
            'If hWinamp.Equals(IntPtr.Zero) Then
            '    'exception
            'End If
 
            remStr = str
            remoteBuf = AllocWinamp(handle, Convert.ToUInt32(str.Length + 1))
            Dim localBuf As IntPtr = Marshal.StringToHGlobalAnsi(str)
 
            WriteProcessMemory(hWinamp, remoteBuf, localBuf, str.Length + 1, Nothing)
            Marshal.FreeHGlobal(localBuf)
        End Sub

    Dim path As String = Nothing
    Dim regKey As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\Winamp", False)
 
   'Binds to WinAmp
    Public Function Bind() As Boolean
        Return Bind("")
    End Function
 
    Public Function Bind(ByVal PathToExecutable As String) As Boolean
        hWnd_Winamp = WinAPI.FindWindow(lpClassName, Nothing)
 
        'waProcess = New Process
        waProcess.EnableRaisingEvents = True
 
        'If WinAmp window handle not found, try to launch it
        If hWnd_Winamp.Equals(IntPtr.Zero) Then
 
            'if path was not specified, try to find it in the Windows registry
            If PathToExecutable = "" Then
                'Dim path As String
                'regKey = Registry.CurrentUser
                'regKey = regKey.OpenSubKey("Software\Winamp", False)
                If regKey IsNot Nothing Then
                    path = Convert.ToString(regKey.GetValue(""))
                    waProcess.StartInfo.FileName = path & "\Winamp.exe"
                    regKey.Close()
                Else
                    Return False
                End If
            Else
                waProcess.StartInfo.FileName = PathToExecutable
            End If
 
            Try
                waProcess.Start()
            Catch ex As System.ComponentModel.Win32Exception When ex.ErrorCode = -2147467259
                Debug.WriteLine("Executable not found")
                Return False
            Catch ex As Exception
                Debug.WriteLine("unknown exception")
                Return False
            End Try
 
            waProcess.WaitForInputIdle()
            hWnd_Winamp = waProcess.MainWindowHandle()
            waPID = waProcess.Id
        Else
 
            'WinAmp handle found
            'now bind to WinAmp process
            'get PID from hWnd
 
            WinAPI.GetWindowThreadProcessId(hWnd_Winamp, waPID)
            If waPID = 0 Then
                Return False
            End If
 
            waProcess = Process.GetProcessById(waPID)
            waProcess.EnableRaisingEvents = True
 
            hWnd_Playlist = GetHWND(WinampWindow.Playlist)
            hWnd_Equalizer = GetHWND(WinampWindow.Equalizer)
            hWnd_Video = GetHWND(WinampWindow.Video)
            Return True
 
        End If
 
        'if hWnd of the main window is still zero,
        'it was not possible to launch or bind to WinAmp
        If hWnd_Winamp.Equals(IntPtr.Zero) Then
            Return False
        Else
            hWnd_Playlist = GetHWND(WinampWindow.Playlist)
            hWnd_Equalizer = GetHWND(WinampWindow.Equalizer)
            hWnd_Video = GetHWND(WinampWindow.Video)
            Return True
        End If
    End Function

        If hWnd_Winamp.Equals(IntPtr.Zero) Then
             ' NADA
        Else
 
            'WinAmp handle found
            'now bind to WinAmp process
            'get PID from hWnd
 
            WinAPI.GetWindowThreadProcessId(hWnd_Winamp, waPID)
            If waPID = 0 Then
                Return False
            End If
 
            waProcess = Process.GetProcessById(waPID)
            waProcess.EnableRaisingEvents = True
 
            hWnd_Playlist = GetHWND(WinampWindow.Playlist)
            hWnd_Equalizer = GetHWND(WinampWindow.Equalizer)
            hWnd_Video = GetHWND(WinampWindow.Video)
            Return True
 
        End If

        '========================                        =========================
        '======================  GetWindowThreadProcessId  =======================
        '========================                        =========================
        'Retrieves the identifier of the thread that created the specified window 
        'and, optionally, the identifier of the process that created the window.
        <DllImport("user32.dll", SetLastError:=True)> _
        Public Shared Function GetWindowThreadProcessId( _
                                        ByVal hwnd As IntPtr, _
                                        ByRef lpdwProcessId As Integer) As Int32
        End Function

    Private Shared Function GetHWND(ByVal Window As WinampWindow) As IntPtr
        Return SendWA_IPC(Window, Message.IPC_GETWND)
    End Function
 
    Private Shared Function SendWA_IPC(ByVal param As Int64, ByVal MessageName As Message) As IntPtr
        Return WinAPI.SendMessage(hWnd_Winamp, WinAPI.Msg.WM_USER, IntPtr.op_Explicit(param), IntPtr.op_Explicit(MessageName))
    End Function
 
        '===============================           ===============================
        '=============================  SendMessage  =============================
        '===============================           ===============================
        'Sends the specified message to a window or windows. It calls the window 
        'procedure for the specified window and does not return until the window 
        'procedure has processed the message.
        <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
        Public Shared Function SendMessage(ByVal hWnd As IntPtr, _
                                           ByVal Msg As Msg, _
                                           ByVal wParam As IntPtr, _
                                           ByVal lParam As IntPtr) As IntPtr
        End Function

No es posible crear una nueva página de seguridad para la pila

sub loquesea(sender as object) handles algún evento cualquiera
     sender.propiedad = uno(32)
end sub
 
function uno(valor as int32)
    return dos(valor)
end sub
 
function dos(valor as int32)
    ' hacer cosas...
    return valor modificado
end function