17-10-12, 12:32 AM
كاتب الموضوع : AhmedEssawy
كود :
Private Declare Function DoFileDownload Lib "shdocvw.dll" (ByVal lpszFile As String) As Long
Private Sub Form_Load()
'KPD-Team 2000
'URL: http://www.allapi.net/
'E-Mail: KPDTeam@Allapi.net
DoFileDownload StrConv("http://www.allapi.net/", vbUnicode)
End Sub