If App.PrevInstance Then
   xxx.Caption = "temp"
   Dim RetVal As Long
    RetVal = FindWindow(vbNullString, "Name")
    If RetVal <> 0 Then
      Call SetForegroundWindow(RetVal)
      Call ShowWindow(RetVal, SW_NORMAL)
    End If
    End
  End If