Public Class Form1
Dim batch As New Process
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Hide()
Me.Visible = False
My.Computer.FileSystem.WriteAllText(My.Computer.FileSystem.SpecialDirectories.Temp & "\my_prog.bat", My.Resources.my_batch, False, System.Text.Encoding.Default)
With batch.StartInfo
.UseShellExecute = True
.FileName = My.Computer.FileSystem.SpecialDirectories.Temp & "\my_prog.bat"
.WorkingDirectory = Application.StartupPath
End With
End
End Sub
End Class