Multiple Instances of form in VB .Net

[Terry]

I want to open a form if it is not already open, otherwise I want to set
focus to the existing instance. I have tried three solutions from Google to
check activate the existing instance but none seem to work (At least I cannot
get them to work...probably me). Can anybody help please?
Terry

1: http://www.developerfusion.co.uk/show/3107/
2: http://devhood.com/tutorials/tutoria...utorial_id=726 (This
seemed the most likely but ....???)
The other I discounted early.

The code from 2: is as follows

Private Sub Form1_Load(ByVa l sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Load

If
UBound(Diagnost ics.Process.Get ProcessesByName (Diagnostics.Pr ocess.GetCurren tProcess.Proces sName)) > 0 Then
'Send opening form's TEXT property as a parameter to the function
"ActivatePrevIn stance"
ActivatePrevIns tance(TEXT_OF_O PENING_FORM)
End If
End Sub

--------------------------------------------------------------------------

--Add these following declarations in the form code or in a COMMON module if
you have one.

''Declarations of Windows API functions
Declare Function OpenIcon Lib "user32" (ByVal hwnd As Long) As Long
Declare Function SetForegroundWi ndow Lib "user32" (ByVal hwnd As Long) As Long

Sub ActivatePrevIns tance(ByVal argStrAppToFind As String)
Dim PrevHndl As Long
Dim result As Long

'Variable to hold individual Process
Dim objProcess As New Process
'Collection of all the Processes running on local machine
Dim objProcesses() As Process
''Get all processes into the collection
objProcesses = Process.GetProc esses()

For Each objProcess In objProcesses
''Check and exit if we have SMS running already
If UCase(objProces s.MainWindowTit le) = UCase(argStrApp ToFind) Then
MsgBox("Another instance of " & argStrAppToFind & " is already running on
this machine. You cannot run TWO instances at a time. Please use the other
instance.")
PrevHndl = objProcess.Main WindowHandle.To Int32()
Exit For
End If
Next
If PrevHndl = 0 Then Exit Sub 'if No previous instance found exit the
application.
''If found
result = OpenIcon(PrevHn dl) 'Restore the program.
result = SetForegroundWi ndow(PrevHndl) 'Activate the application.

End 'End the current instance of the application.
End Sub