Private Sub CommandButton1_Click()
frmBPDETGen.Hide
ThisDrawing.SendCommand "_Canc" & vbCrLf
ThisDrawing.SendCommand "-i" & vbCrLf
Wait 1
ThisDrawing.SendCommand "vvvv" & vbCrLf
Wait 1
ThisDrawing.SendCommand "1" & vbCrLf
Wait 1
ThisDrawing.SendCommand "1" & vbCrLf
Wait 1
ThisDrawing.SendCommand "1" & vbCrLf
Wait 1
ThisDrawing.SendCommand "0" & vbCrLf
End Sub
Sub Wait(Seconds As Single)
Dim Start As Single
Start = Timer
Do While Timer < Start + Seconds
DoEvents
Loop
End Sub