B∞h pouze jednΘ instance aplikace

Sub Form1_Load ()
	If App.PrevInstance Then
	'ZjiÜt∞nφ, zda neb∞₧φ jinß instance aplikace
		SaveTitle$ = App.Title
		'Pokud ano, ulo₧enφ titulku novΘ instance
		App.Title = "... duplicitnφ instance."	
		'Zm∞na titulku novΘ instance pro jednoznaΦnou referenci
		Form1.Caption = "... duplicitnφ instance."
		AppActivate SaveTitle$
		'Aktivace p∙vodnφ instance aplikace
		SendKeys "% R", True
		'Obnovenφ okna p∙vodnφ instance
		End
		'UkonΦenφ novΘ instance
	End If
End Sub

P°i funkci Load prvnφho formulß°e (nebo p°emφst∞nφm tohoto k≤du na prvnφ proceduru) se aplikace ujistφ, ₧e neb∞₧φ ₧ßdnß jejφ p°edchozφ instance. Pokud takov²to fakt zjistφ, aktivuje p∙vodnφ instanci a sama sebe ukonΦφ.

Zp∞t