ahi te dice que debes tener otro sub main en otro modulo, debes tener solo 1.
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúImports System.IO
Imports System.Reflection
Module Module1
Sub Main()
AddHandler AppDomain.CurrentDomain.AssemblyResolve, AddressOf CargarLibreriaMemoria
Application.EnableVisualStyles()
Application.Run(Form1) ' aca pone el nombre del formulario de inicio tuyo
End Sub
Private Function CargarLibreriaMemoria(ByVal sender As Object, ByVal args As ResolveEventArgs) As Assembly
Dim vNombre As String = args.Name.Substring(0, args.Name.IndexOf(","))
Dim vStream As Stream = Reflection.Assembly.GetExecutingAssembly().GetManifestResourceStream("WindowsApplication1." & vNombre & ".dll")
Dim vBuffer As Byte() = New Byte(vStream.Length - 1) {}
vStream.Read(vBuffer, 0, vBuffer.Length)
Dim vLibreria As Assembly = Assembly.Load(vBuffer)
Return vLibreria
End Function
End Module
Imports System.Runtime.InteropServices
Public Class Form1
Private Const HWND_BROADCAST As Integer = &HFFFF
Private Const WM_WININICHANGE As Integer = &H1A, WM_SETTINGCHANGE As Integer = WM_WININICHANGE, INI_INTL As Integer = 1
<DllImport("user32.dll")> _
Private Shared Function SendMessage(ByVal hWnd As Integer, ByVal wMsg As UInteger, ByVal wParam As UInteger, ByVal lParam As UInteger) As Integer
End Function
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call SendMessage(HWND_BROADCAST, WM_SETTINGCHANGE, 0, INI_INTL)
End Sub
End Class