Private Sub Command2_Click()
End
End Sub
 
Private Sub Command1_Click()
 
 
  'Shell ("adxencd.exe wave.wav adxfile.adx " & "-lps" & lps.Text & " -lpe" & 
  ' lpe.Text)
 
Dim A As Integer
A = FreeFile
    Open App.Path & "\zz.bat" For Output As #A
    Print #A, "adxencd.exe wave.wav adxfile.adx -lps" + lps.Text + " -lpe" + _
      lpe.Text;
    Close A
Shell "\zz.bat", vbNormalFocus
 
 
 
End Sub
 
Private Sub Command3_Click()
    Form2.Show
End Sub
 
'=========== SAVE LOOP FILE ===========
 
Private Sub Command4_Click()
  Dim Fn As Integer
 
  On Error Resume Next
  With CommonDialog1
    .CancelError = True
    .Flags = cdlOFNOverwritePrompt
    .Filter = "ADX Loop file (*.lpf)|*.lpf"
    .ShowSave
    If .FileName <> "" Then
      Fn = FreeFile
      Open .FileName For Output As #Fn
 
      Print #Fn, lps.Text
      Print #Fn, lpe.Text;
 
      Close #Fn
    End If
  End With
End Sub
 
 
 
'=== OPEN LOOP FILE ===
 
Private Sub Command5_Click()
  Dim F As Integer
  Dim lpe1 As String
  Dim lps2 As String
 
    lps.Text = ""
    lpe.Text = ""
 
  On Error Resume Next
  With CommonDialog2
    .CancelError = True
    .Filter = "ADX Loop file (*.lpf)|*.lpf"
    .ShowOpen
    If .FileName <> "" Then
      F = FreeFile
      Open .FileName For Input As #F
      Do Until EOF(F)
 
        Line Input #F, lps2
        Line Input #F, lpe1
 
        lps.Text = lps2
        lpe.Text = lpe1
      Loop
      Close #F
    End If
  End With
 
 
End Sub
 
 
Private Sub Command6_Click()
Form3.Show
End Sub
 
 
Private Sub lps_KeyPress(KeyAscii As Integer)
   If InStr("1234567890" & Chr$(8), Chr$(KeyAscii)) = 0 Then
      KeyAscii = 0
   End If
End Sub
 
Private Sub lpe_KeyPress(KeyAscii As Integer)
   If InStr("1234567890" & Chr$(8), Chr$(KeyAscii)) = 0 Then
      KeyAscii = 0
   End If
End Sub

Dim A As Integer
A = FreeFile
    Open App.Path & "\zz.bat" For Output As #A
    Print #A, "adxencd.exe wave.wav adxfile.adx -lps" + lps.Text + " -lpe" + _
      lpe.Text;
    Close A
Shell "\zz.bat", vbNormalFocus