Membuat Shortcut Internet Pada Desktop Menggunakan VB.6.0

Anda Ingin menambahkan Shortcut internet ke desktop anda?
disini saya akan menjelaskan caranya.

langsung saja buka VB 6.0 anda lalu ketikan kode berikut  pada form anda:

Private Sub Form_Load()
Dim URLFile as string
Dim URLTarget as string
Dim myfilenum as integer
URLfile = "c"\windows\desktop\yahoo.url"
URLTarget ="http://www.yahoo.com"
myfilenum=freefile
open URLfile for output as myfilenum
print  #mufilenum,"[internetshortcut]"
print #myfilenum,"URL="&URLtarget
close myfilenum
end sub


Catatan : ubah c:\windows\desktop\yahoo.url sesuai dengan nama shortcut yang anda inginkan. ubah pula URL target pada http://www.yahoo.com sesuai dengan link website yang akan anda jadikan shortcut.
selamat mencoba