[SOURCE VB] Simple Launcher

Public Class Form1

    Private Sub ElegantThemeButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ElegantThemeButton1.Click
        If ElegantThemeCheckBox1.Checked = True Then
            Dim theProcessStartInfo As New ProcessStartInfo("C:\xampp\apache_start.bat")
            theProcessStartInfo.CreateNoWindow = True
            theProcessStartInfo.WindowStyle = ProcessWindowStyle.Hidden
            Process.Start(theProcessStartInfo)
            ElegantThemeTextBox1.Text = "[X] Result Viewer by Cahyo" & Environment.NewLine & "[X] Waktu : " & Date.Now & Environment.NewLine & Environment.NewLine & _
            "> Aplikasi Berhasil Dijalankan..."

        ElseIf ElegantThemeCheckBox2.Checked = True Then
            Dim theProcessStartInfo As New ProcessStartInfo("C:\xampp\mysql_start.bat")
            theProcessStartInfo.CreateNoWindow = True
            theProcessStartInfo.WindowStyle = ProcessWindowStyle.Hidden
            Process.Start(theProcessStartInfo)

        ElseIf ElegantThemeCheckBox3.Checked = True Then
            Dim theProcessStartInfo As New ProcessStartInfo("C:\Program Files\UCBrowser\Application\UCBrowser.exe")
            theProcessStartInfo.CreateNoWindow = True
            theProcessStartInfo.WindowStyle = ProcessWindowStyle.Hidden
            Process.Start(theProcessStartInfo)

        ElseIf ElegantThemeCheckBox6.Checked = True Then
            Dim theProcessStartInfo As New ProcessStartInfo("C:\Users\BlackhatCode\AppData\Local\Google\Chrome\Application\chrome.exe")
            theProcessStartInfo.CreateNoWindow = True
            theProcessStartInfo.WindowStyle = ProcessWindowStyle.Hidden
            Process.Start(theProcessStartInfo)

        ElseIf ElegantThemeCheckBox4.Checked = True Then
            Dim theProcessStartInfo As New ProcessStartInfo("C:\Program Files\Sublime Text 3\sublime_text.exe")
            theProcessStartInfo.CreateNoWindow = True
            theProcessStartInfo.WindowStyle = ProcessWindowStyle.Hidden

            Process.Start(theProcessStartInfo)
        ElseIf ElegantThemeCheckBox5.Checked = True Then
            Dim theProcessStartInfo As New ProcessStartInfo("C:\Program Files\Notepad++\notepad++.exe")
            theProcessStartInfo.CreateNoWindow = True
            theProcessStartInfo.WindowStyle = ProcessWindowStyle.Hidden
            Process.Start(theProcessStartInfo)

        ElseIf ElegantThemeCheckBox1.Checked = False And ElegantThemeCheckBox2.Checked = False And _
            ElegantThemeCheckBox3.Checked = False And ElegantThemeCheckBox4.Checked = False And _
            ElegantThemeCheckBox5.Checked = False And ElegantThemeCheckBox6.Checked = False Then
            MessageBox.Show("Centang Salah Satu!", "Notice", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
        End If
    End Sub

    Private Sub ElegantThemeButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ElegantThemeButton3.Click
        End
    End Sub

    Private Sub ElegantThemeButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ElegantThemeButton2.Click
        If ElegantThemeCheckBox1.Checked = True Then
            Dim theProcessStartInfo As New ProcessStartInfo("C:\xampp\apache_stop.bat")
            theProcessStartInfo.CreateNoWindow = True
            theProcessStartInfo.WindowStyle = ProcessWindowStyle.Hidden
            Process.Start(theProcessStartInfo)
            ElegantThemeTextBox1.Text = "[X] Result Viewer by Cahyo" & Environment.NewLine & "[X] Waktu : " & Date.Now & Environment.NewLine & Environment.NewLine & _
            "> Aplikasi Berhasil Diberhentikan..."

        ElseIf ElegantThemeCheckBox2.Checked = True Then
            Dim theProcessStartInfo As New ProcessStartInfo("C:\xampp\mysql_stop.bat")
            theProcessStartInfo.CreateNoWindow = True
            theProcessStartInfo.WindowStyle = ProcessWindowStyle.Hidden
            Process.Start(theProcessStartInfo)
            ElegantThemeTextBox1.Text = "[X] Result Viewer by Cahyo" & Environment.NewLine & "[X] Waktu : " & Date.Now & Environment.NewLine & Environment.NewLine & _
            "> Aplikasi Berhasil Diberhentikan..."

        ElseIf ElegantThemeCheckBox3.Checked = True Then
            ElegantThemeTextBox1.Text = "[X] Result Viewer by Cahyo" & Environment.NewLine & "[X] Waktu : " & Date.Now & Environment.NewLine & Environment.NewLine & _
            "> Failed! Don't have a permission..."

        ElseIf ElegantThemeCheckBox6.Checked = True Then
            ElegantThemeTextBox1.Text = "[X] Result Viewer by Cahyo" & Environment.NewLine & "[X] Waktu : " & Date.Now & Environment.NewLine & Environment.NewLine & _
            "> Failed! Don't have a permission..."

        ElseIf ElegantThemeCheckBox4.Checked = True Then
            ElegantThemeTextBox1.Text = "[X] Result Viewer by Cahyo" & Environment.NewLine & "[X] Waktu : " & Date.Now & Environment.NewLine & Environment.NewLine & _
            "> Failed! Don't have a permission..."

        ElseIf ElegantThemeCheckBox5.Checked = True Then
            ElegantThemeTextBox1.Text = "[X] Result Viewer by Cahyo" & Environment.NewLine & "[X] Waktu : " & Date.Now & Environment.NewLine & Environment.NewLine & _
            "> Failed! Don't have a permission..."

        ElseIf ElegantThemeCheckBox1.Checked = False And ElegantThemeCheckBox2.Checked = False And _
            ElegantThemeCheckBox3.Checked = False And ElegantThemeCheckBox4.Checked = False And _
            ElegantThemeCheckBox5.Checked = False And ElegantThemeCheckBox6.Checked = False Then
            MessageBox.Show("Centang Salah Satu!", "Notice", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            ElegantThemeTextBox1.Text = ""
        End If
    End Sub
End Class