Form_unload Ve Form_QueryUnload
Ornek :

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
URL = Shell("C:\Program Files\Internet Explorer\IEXPLORE.EXE https://www.r10.net", vbNormalFocus)
URL = Shell("C:\Program Files\Mozilla Firefox\firefox.exe https://www.r10.net", vbNormalFocus)
End Sub


Private Sub Form_Unload(Cancel As Integer)
URL = Shell("C:\Program Files\Internet Explorer\IEXPLORE.EXE https://www.r10.net", vbNormalFocus)
URL = Shell("C:\Program Files\Mozilla Firefox\firefox.exe https://www.r10.net", vbNormalFocus)
End Sub

Hemen Simdi Denedim Calisti Alinti Degildir!
Daha Oncede Kullandiyim Bir Kodtur !