Private Sub Form_Activate()
If App.PrevInstance = True Then
Dim SaveTitle As String
SaveTitle = App.Title
App.Title = "... programa duplicado."
frmMain.Caption = "... programa duplicado."
Text = "Actualmente está abierta -Título-."
Text = Text + vbCrLf + "Sólo es necesario abrir una a la vez."
MsgBox Text, vbExclamation, "Advertencia..."
AppActivate SaveTitle
SendKeys "% R", True
End
End If
End Sub