Desligamento do Server Modificado

Eae gente, esse sistema é simples, eu fiz ele aqui e vim disponibilizar pra vocês.

Abra o Server~Side, na frmServer, na aba Painel de Controle/Control Panel, procure pelo botão "Desligar"(Command1). Bem embaixo dele adicione um HScroll. e do lado do Scroll ponha uma label chamada "lblshutdown". (Sem aspas). Ponha nas propriedades da lblShutdown o Max de segundos a serem escolhidos, e o mínimo! Aqui eu pus 1 minimo e 100 máximo. Agora, de dois cliques no HScroll e adicione:

Código:

lblShutdown.Caption = HScroll1.Value

Agora de dois cliques no botão Desligar (Command1) Aparecendo a sub:

Código:

Private Sub Command1_Click()

Mude ela toda para:

Código:

Private Sub Command1_Click()
Dim CTZ As Long
CTZ = MsgBox("Tem certeza de que deseja desligar em " & lblShutdown.Caption & " segundos?", vbYesNo, frmServer.Caption)
    If CTZ = vbYes Then
    Call SendDataToAll("sound" & SEP_CHAR & "ServidorDesligando" & END_CHAR)

    If tmrShutdown.Enabled = False Then
        tmrShutdown.Enabled = True
    End If
    Else
    Exit Sub
    End If
End Sub

Agora na sub do tmrShutdown:

Código:

Private Sub tmrShutdown_Timer()

Mude a sub toda para:

Código:

Private Sub tmrShutdown_Timer()
    Static Secs As Long

    If Secs <= 0 Then Secs = lblShutdown.Caption
    ShutdownTime.Caption = "Desligar em " & Secs & " segundos."

    If Secs = 30 Then Call TextAdd(frmServer.txtText(0), "Desligamento automático do Servidor em " & Secs & " segundos.", True)
    If Secs = 30 Then Call GlobalMsg("Desligamento do Servidor em " & Secs & " segundos.", BrightBlue)
    If Secs = 25 Then Call GlobalMsg("Desligamento do Servidor em " & Secs & " segundos.", BrightBlue)
    If Secs = 20 Then Call GlobalMsg("Desligamento do Servidor em " & Secs & " segundos.", BrightBlue)
    If Secs = 15 Then Call GlobalMsg("Desligamento do Servidor em " & Secs & " segundos.", BrightBlue)
    If Secs = 10 Then Call GlobalMsg("Desligamento do Servidor em " & Secs & " segundos.", BrightBlue)
    If Secs < 6 Then
        Call GlobalMsg("Desligamento do Servidor em " & Secs & " segundos.", BrightBlue)
    End If
    Secs = Secs - 1

    If Secs <= 0 Then
        tmrShutdown.Enabled = False
        Call DestroyServer
    End If
End Sub

É isso aí! Um sistema bem simples galera..

Créditos: RenanR - Por criar o sistema, e postar.