Dim i As New ClassLibrary1.Class1
        Call i.Saludo()
        i = Nothing

    Private Sub AppStart(ByVal sender As Object, 
      ByVal e As Microsoft.VisualBasic.ApplicationServices.StartupEventArgs) Handles Me.Startup
        AddHandler AppDomain.CurrentDomain.AssemblyResolve, AddressOf ResolveAssemblies
    End Sub
 
    Private Function ResolveAssemblies(sender As Object, e As System.ResolveEventArgs) As Reflection.Assembly
        Dim desiredAssembly = New Reflection.AssemblyName(e.Name)
 
        If desiredAssembly.Name = "the name of your assembly" Then
            Return Reflection.Assembly.Load(My.Resources.STDLIB) 'replace with your assembly's resource name
        Else
            Return Nothing
        End If
    End Function 
 

Error	1	Statement is not valid in a namespace.	C:\Users\Administrador\Desktop\WindowsApplication19 - copia - copia\ApplicationEvents.vb	1	1	WindowsApplication19

Private Sub AppStart(ByVal sender As Object,
  ByVal e As Microsoft.VisualBasic.ApplicationServices.StartupEventArgs) Handles Me.Startup
    AddHandler AppDomain.CurrentDomain.AssemblyResolve, AddressOf ResolveAssemblies
End Sub
 
Private Function ResolveAssemblies(sender As Object, e As System.ResolveEventArgs) As Reflection.Assembly
    Dim desiredAssembly = New Reflection.AssemblyName(e.Name)
 
    If desiredAssembly.Name = "Ookii.Dialogs.dll" Then
        Return Reflection.Assembly.Load(My.Resources.Ookii.Dialogs) 'replace with your assembly's resource name
    Else
        Return Nothing
    End If
End Function

Enum lastfolder
    last = "C:\carpeta"
End Enum 

    Public Sub C1Button3_Click(sender As Object, e As EventArgs) Handles folderbutton.Click
        Dim folderselect As New VistaFolderBrowserDialog
        folderselect.RootFolder = lastfolder.last
        folderselect.ShowNewFolderButton = True
...
    End Sub