Focus O Seleccionar Una Aplicación

[Gold_Xp]

xD por eso pido ayuda a los profesionales :P que esque no me sale, sólo he usado esta fórmula, pero es para matar al proceso :

On Error GoTo ErrHandler
Dim oWMI
Dim ret
Dim sService
Dim oWMIServices
Dim oWMIService
Dim oServices
Dim oService
Dim servicename

oWMI = GetObject("winmgmts:")
oServices = oWMI.InstancesOf("win32_process")

For Each oService In oServices
servicename = _
LCase(Trim(CStr(oService.Name) & ""))

If InStr(1, servicename, _
LCase(processName), vbTextCompare) > 0 Then
ret = oService.go
End If
Next

oServices = Nothing
oWMI = Nothing
Exit Sub
ErrHandler:
Err.Clear()