Imports System.Threading
Public Class frmStatus
    Public Shared Sub Sleep( _
 ByVal millisecondsTimeout As Integer _
)
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGeneralSet.Click
        lblStatus.Text = "Status: On"
        Do While lblStatus.Text = "Status: On"
            Process.Start("xfire:status?text=" & Format(Now, "General Date"))
            Thread.Sleep(1000)
        Loop
    End Sub

    Private Sub btnSetPromote_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSetPromote.Click
        lblStatus.Text = "Status: On"
        Do While lblStatus.Text = "Status: On"
            Process.Start("xfire:status?text=" & Format(Now, "General Date") & " - Xfire Time Status http://reeiiko.tk/xfire-time-status")
            Thread.Sleep(1000)
        Loop
    End Sub

    Private Sub btnLongDateSet_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLongDateSet.Click
        lblStatus.Text = "Status: On"
        Do While lblStatus.Text = "Status: On"
            Process.Start("xfire:status?text=" & Format(Now, "Long Date") & " " & Format(Now, "Long Time"))
            Thread.Sleep(1000)
        Loop
    End Sub

    Private Sub btnLongDateSetPromote_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLongDateSetPromote.Click
        lblStatus.Text = "Status: On"
        Do While lblStatus.Text = "Status: On"
            Process.Start("xfire:status?text=" & Format(Now, "Long Date") & " " & Format(Now, "Long Time") & " - Xfire Time Status http://reeiiko.tk/xfire-time-status")
            Thread.Sleep(1000)
        Loop
    End Sub

    Private Sub btnLongDate1Set_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLongDate1Set.Click
        lblStatus.Text = "Status: On"
        Do While lblStatus.Text = "Status: On"
            Process.Start("xfire:status?text=" & Format(Now, "Long Date"))
            Thread.Sleep(1000)
        Loop
    End Sub

    Private Sub btnLongStatus1SetPromote_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLongStatus1SetPromote.Click
        lblStatus.Text = "Status: On"
        Do While lblStatus.Text = "Status: On"
            Process.Start("xfire:status?text=" & Format(Now, "Long Date") & " - Xfire Time Status http://reeiiko.tk/xfire-time-status")
            Thread.Sleep(1000)
        Loop
    End Sub

    Private Sub btnTimeSet_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTimeSet.Click
        lblStatus.Text = "Status: On"
        Do While lblStatus.Text = "Status: On"
            Process.Start("xfire:status?text=" & Format(Now, "Long Time"))
            Thread.Sleep(1000)
        Loop
    End Sub

    Private Sub btnTimeSetPromote_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTimeSetPromote.Click
        lblStatus.Text = "Status: On"
        Do While lblStatus.Text = "Status: On"
            Process.Start("xfire:status?text=" & Format(Now, "Long Time") & " - Xfire Time Status http://reeiiko.tk/xfire-time-status")
            Thread.Sleep(1000)
        Loop
    End Sub

    Private Sub btnShortDateSet_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnShortDateSet.Click
        lblStatus.Text = "Status: On"
        Do While lblStatus.Text = "Status: On"
            Process.Start("xfire:status?text=" & Format(Now, "Short Date"))
            Thread.Sleep(1000)
        Loop
    End Sub

    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        lblStatus.Text = "Status: On"
        Do While lblStatus.Text = "Status: On"
            Process.Start("xfire:status?text=" & Format(Now, "Short Date") & " - Xfire Time Status http://reeiiko.tk/xfire-time-status")
            Thread.Sleep(1000)
        Loop
    End Sub

    Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
        frmHelp.show()
    End Sub

    Private Sub btnCustomSet_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCustomSet.Click
        lblStatus.Text = "Status: On"
        Do While lblStatus.Text = "Status: On"
            Process.Start("xfire:status?text=" & txtStatusMessage.Text & " " & Format(Now, txtCustom.Text))
            Thread.Sleep(1000)
        Loop
    End Sub

    Private Sub btnReset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReset.Click
        lblStatus.Text = "Status: Off"
        Process.Start("xfire:status?text=")
        Process.Start("xfire:status?text=")
        Process.Start("xfire:status?text=")
        Process.Start("xfire:status?text=")
        Process.Start("xfire:status?text=")
        Process.Start("xfire:status?text=")
        Process.Start("xfire:status?text=")
        Process.Start("xfire:status?text=")
        Process.Start("xfire:status?text=")
        Process.Start("xfire:status?text=")
    End Sub

    Private Sub btnCustomSetPromote_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCustomSetPromote.Click
        lblStatus.Text = "Status: On"
        Do While lblStatus.Text = "Status: On"
            Process.Start("xfire:status?text=" & txtStatusMessage.Text & " " & Format(Now, txtCustom.Text) & " - Xfire Time Status http://reeiiko.tk/xfire-time-status")
            Thread.Sleep(1000)
        Loop
    End Sub

    Private Sub btnTimeDateSet_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTimeDateSet.Click
        lblStatus.Text = "Status: On"
        Do While lblStatus.Text = "Status: On"
            Process.Start("xfire:status?text=" & Format(Now, "dd/MM/yyyy h:mm tt"))
            Thread.Sleep(1000)
        Loop
    End Sub

    Private Sub frmStatus_FormClosed(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.FormClosed
        lblStatus.Text = "Status: Off"
        Process.Start("xfire:status?text=")
        Process.Start("xfire:status?text=")
        Process.Start("xfire:status?text=")
        Process.Start("xfire:status?text=")
        Process.Start("xfire:status?text=")
        Process.Start("xfire:status?text=")
        Process.Start("xfire:status?text=")
        Process.Start("xfire:status?text=")
        Process.Start("xfire:status?text=")
        Process.Start("xfire:status?text=")
    End Sub

    Private Sub LinkLabel3_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel3.LinkClicked
        frmInfo.show()
    End Sub

    Private Sub btnTimeDateSetPromote_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTimeDateSetPromote.Click
        lblStatus.Text = "Status: On"
        Do While lblStatus.Text = "Status: On"
            Process.Start("xfire:status?text=" & Format(Now, "dd/MM/yyyy h:mm tt") & " - Xfire Time Status http://reeiiko.tk/xfire-time-status")
            Thread.Sleep(1000)
        Loop
    End Sub
End Class