Private Sub Timer1_Timer()
On Error Resume Next
Dim a As Integer, strIn As String
a = FreeFile()
Open "D:\Program Files\Apache Group\Apache2\htdocs\cam\in.txt" For Input As #a
Line Input #a, strIn
Close #a
If strIn = "right" Then
    Call cmdRight_Click
ElseIf strIn = "left" Then
    Call cmdLeft_Click
ElseIf strIn = "door" Then
    Call cmdDoor_Click
ElseIf strIn = "window" Then
    Call cmdWindow_Click
ElseIf strIn = "center" Then
    Call cmdCenter_Click
End If
a = FreeFile()
Open "D:\Program Files\Apache Group\Apache2\htdocs\cam\in.txt" For Output As #a
Print #a, ""
Close #a
End Sub