Prova detta:
Sv: App.PrevInst
Svara
<code>
Public Sub Main()
If PrevInstance() Then Exit Sub
End Sub
Function PrevInstance() As Boolean
If UBound(Diagnostics.Process.GetProcessesByName _
(Diagnostics.Process.GetCurrentProcess.ProcessName)) _
> 0 Then
Return True
Else
Return False
End If
End Function
</code>
Hoppas det funkar!
//
Henrik