Jag håller på att gjöra ett program som ska start ett ljudinspelningsprogram och sen ska det byt fil i inspelningsprogramet varje dag. Men jag får det inte riktigt att fungera. När jag startar mitt program så startas ljudinspelningsprogramet som det ska men sen stannar mitt program och jag måste klicka på det för att det ska försätta. Det är som om ljudinspelningsprogramet lägger sig åvanför mitt program och mitt blir inaktiverat tills jag trycker på det. Finns det nåt sätt så det fortsätter ändå? och finns nåt sätt att se om ljudinspelningsprogramet redan är i gång?

Private Sub Command1_Click()

Dim ret As Long
Dim Nfil As String
Dim Gfil As String

Open "rec.txt" For Input As #1
Input #1, Gfil
Close #1

ret = Shell("C:\rec.exe",1)
' Här stannar programet tills jag klikar på det
On Error GoTo Old
AppActivate "Rec", True

Nyfil:
SendKeys "s", True
SendKeys "c", True
SendKeys "o", True
Nfil = Date & "_" & Mid(Time, 1, 2) & "-" & Mid(Time, 4, 2) & "-" & Mid(Time, 7, 2)
SendKeys Nfil, True
SendKeys "%s", True
SendKeys "{DOWN} {ENTER}", True
SendKeys "r", True

Open "rec.txt" For Output As #1
Print #1, "Rec - C:\" & Nfil & ".WAV"
Close #1
Exit Sub

Old:
AppActivate Gfil, True
GoTo Nyfil

End Sub

Om du tar bort goto satsen kanske någon vågar svara (tips).

Nu har jag hittat felet jag tog bort , True efter AppActivate "Rec" då funkar det
hur ska jag skriva i stället för goto satsen då?