CompuServe Messages

Hi Nelson, Sorry, what I should have said was that the For loop that gave you an illegal function call gave me a UAE. The For loop that worked for you, also worked for me. Anyway, I've found a really ugly work around that works on my machine. I hope it works on yours also. Sub Command1_Click () For i% = 1 To 10 s% = Shell("command.com /c dir c:\*.*", 1) x% = DoEvents() Command1.Visible = 0 x% = DoEvents() Command1.Visible = -1 Next i% End Sub An alternative that also works, but which is equally ugly is to use the API SetCursorPos function to move the cursor off the Command1 button onto the form and then back again. Sorry, but that's the best I can come up with. KeithF