
Sub SendCommand (CommandString$)
    Const NONE = 0, COLD = 2

    On Error GoTo ErrorHandler

    If DDE_Field.LinkMode = NONE Then
        DDE_Field.LinkTopic = "amcwin|System"
        DDE_Field.LinkMode = COLD
    End If
    DDE_Field.LinkExecute CommandString$
    DDE_Field.LinkMode = NONE
    Exit Sub

ErrorHandler:
    DDE_Field.LinkMode = NONE
    MsgBox "Couldn't get through to AM-Classic", 48, "AM-Remote"

End Sub

Sub Command1_Click ()
    SendCommand "[(domenustring " + Chr$(34) + "Open..." + Chr$(34) + ")]"
End Sub

Sub Command2_Click ()
    SendCommand "[(domenustring " + Chr$(34) + "Select..." + Chr$(34) + ")]"
End Sub

Sub Command3_Click ()
    SendCommand "[(domenustring " + Chr$(34) + "Close" + Chr$(34) + ")]"
End Sub

Sub Command4_Click ()
    SendCommand "[(domenustring " + Chr$(34) + "Close All" + Chr$(34) + ")]"
End Sub

Sub Command5_Click ()
    SendCommand "[(domenustring " + Chr$(34) + "Blocks..." + Chr$(34) + ")]"
End Sub

Sub Command6_Click ()
    SendCommand "[(domenustring " + Chr$(34) + "Blocks..." + Chr$(34) + ")]"
End Sub

Sub Command7_Click ()
    SendCommand "[(domenustring " + Chr$(34) + "Named Views..." + Chr$(34) + ")]"
End Sub

Sub Command8_Click ()
    SendCommand "[(domenustring " + Chr$(34) + "Info..." + Chr$(34) + ")]"
End Sub

Sub Command9_Click ()
    SendCommand "[(domenustring " + Chr$(34) + "File Manager..." + Chr$(34) + ")]"
End Sub

Sub Command10_Click ()
    SendCommand "[(domenustring " + Chr$(34) + "Launch AutoCAD..." + Chr$(34) + ")]"
End Sub

Sub Command11_Click ()
    SendCommand "[(domenustring " + Chr$(34) + "Insert Block in AutoCAD..." + Chr$(34) + ")]"
End Sub

Sub Command12_Click ()
    SendCommand "[(domenustring " + Chr$(34) + "Xref Block in AutoCAD..." + Chr$(34) + ")]"
End Sub

Sub Command13_Click ()
    SendCommand "[(mdiminimize)]"
End Sub

Sub Command14_Click ()
    SendCommand "[(domenustring " + Chr$(34) + "Minimize All" + Chr$(34) + ")]"
End Sub

Sub Command15_Click ()
    SendCommand "[(domenustring " + Chr$(34) + "Tile" + Chr$(34) + ")]"
End Sub

Sub Command16_Click ()
    SendCommand "[(domenustring " + Chr$(34) + "Cascade" + Chr$(34) + ")]"
End Sub

Sub Picture4_Click ()
    SendCommand "[(domenustring " + Chr$(34) + "Blocks..." + Chr$(34) + ")]"
End Sub

Sub Picture3_Click ()
    SendCommand "[(domenustring " + Chr$(34) + "Layers..." + Chr$(34) + ")]"
End Sub

Sub Picture8_Click ()
    SendCommand "[(domenustring " + Chr$(34) + "Named Views..." + Chr$(34) + ")]"
End Sub

Sub Picture2_Click ()
    SendCommand "[(domenustring " + Chr$(34) + "Model" + Chr$(34) + ")]"
End Sub

Sub Picture1_Click ()
    SendCommand "[(domenustring " + Chr$(34) + "Paper" + Chr$(34) + ")]"
End Sub

Sub Picture5_Click ()
    SendCommand "[(domenustring " + Chr$(34) + "Info..." + Chr$(34) + ")]"
End Sub

Sub Picture6_Click ()
    SendCommand "[(domenustring " + Chr$(34) + "Launch AutoCAD..." + Chr$(34) + ")]"
End Sub

Sub Picture7_Click ()
    SendCommand "[(domenustring " + Chr$(34) + "Previous" + Chr$(34) + ")]"
End Sub

Sub Form_Load ()
            SetWindowPos hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW
End Sub

