Runtime Error '55':[Resolved]

[whothis]

HI.

If i double click the cmdDisplay button i get the error below.

Runtime error '55': File already open

Code:

Private Sub cmdDisplay_Click()

Dim nom As String, phoneNum As String
picNumbers2.Cls
Open "C:\PHONE.TXT" For Input As #1
Do While Not EOF(1)
Input #1, nom, phoneNum
picNumbers2.Print nom, phoneNum
Loop
End Sub
.............................................................................

Can i prevent it being double clicked ..?

Thanks

Paul