File Fence Microstation

Private Sub CommandButton1_Click()
    CadInputQueue.SendCommand "lock fence clip "
    CadInputQueue.SendCommand "place fence block "
End Sub

Private Sub CommandButton2_Click()
    FN = (Filebox.Text)
    CadInputQueue.SendCommand "$ ff=$(HOMEPATH)/Desktop/(FN).dgn "
End Sub

Private Sub CommandButton3_Click()
    CadInputQueue.SendCommand "$ ff=C:\(FN).dgn "



End Sub

Private Sub CommandButton4_Click()

    Unload Me
End Sub