Albertux~# ./Blog

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        xampplite.run_services()
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        xampplite.stop_services()
    End Sub
End Class
 
Module xampplite
    Sub run_services()
        run_batch("C:\xampplite\apache_start.bat")
        run_batch("C:\xampplite\mysql_start.bat")
    End Sub
    Sub stop_services()
        run_batch("C:\xampplite\apache_stop.bat")
        run_batch("C:\xampplite\mysql_stop.bat")
    End Sub
    Sub run_batch(ByVal x As String)
        Dim psi As New ProcessStartInfo
        psi.FileName = x
        psi.WorkingDirectory = "C:\xampplite\"
        psi.WindowStyle = ProcessWindowStyle.Hidden
        Process.Start(psi)
    End Sub
End Module