Giusto per fare il punto della situazione..............allora ho risolto cosi..........
-------------parte generale
Private Declare Function IsWindow Lib "user32" _
(ByVal hwnd As Long) As Long

Private Declare Function FindWindow Lib "user32" _
Alias "FindWindowA" _
(ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long

---------------------form
Private Sub Form_Initialize()
hwindow = FindWindow(vbNullString, "Form1")
If hwindow <> 0 Then
End
End If
End Sub

Cosi controllo se esiste un'applicazione già avviata e in caso chiudo