AddPreferite

Private Sub Command1_Click()
Open "C:\Windows\Preferiti\" & Text1.Text & ".url" _
For Binary Access Write As #1
Put #1,,"[InternetShortcut]" & vbNewLine & "URL=" & _
Text2.Text
Close #1
MsgBox "URL Aggiunto su preferiti!",vbInformation
End Sub