Ayuda con AppActivate

[byway]

Ahora si, si buscas en el foro creo que hay un code alternativo de Karcrack.

si ya estoy usando el CreateMutex, también vi el modulo de  Karcrack, pero lo que deseaba adicionarle es que cuando ya este en ejecución (la primera instancia) y cuando vuelves a ejecutar para la segunda instancia este vea si la primera instancia esta minimizada para asi maximizarlo y ponerlo en frente obteniendo el foco, y luego se cierre para evitar 2 instancias del mismo exe.

[abkanis]

Código [Seleccionar] Expandir

Private Declare Function IsIconic Lib "user32" (ByVal hwnd As Long) As Long
Dim x As String

Private Sub Timer1_Timer()
If IsIconic(Me.hwnd) = 0 Then
If x = "" Then MsgBox "maximizado"
x = "x"
Else
If x = "x" Then MsgBox "minimizado"
x = ""
End If
End Sub