PublicShared MapEngine As frmSuperMapForm <STAThread()>SharedSub Main()Sub Main() Dim chan1 As TcpChannel chan1 =New TcpChannel(8085) ChannelServices.RegisterChannel(chan1) RemotingConfiguration.RegisterWellKnownServiceType(GetType(MapService), "MapService", WellKnownObjectMode.Singleton) MapEngine =New frmSuperMapForm Application.Run(MapEngine) End Sub