انشأ وحدة نمطية وضع فيها هذا الكود ..............
Public Sub CreateDesktopShortcutWithIcon()
Dim WshShell As Object
Set WshShell = CreateObject("Wscript.Shell")
Dim strDesktop As String
strDesktop = WshShell.SpecialFolders("Desktop")
Dim oShellLink As Object
Dim fil, fil1 As String
Set oShellLink = WshShell.CreateShortcut(strDesktop & "\" & DLookup("[nsh]", "[tblsho]") & ".lnk")
oShellLink.TargetPath = CurrentProject.Path & "\" & CurrentProject.Name
oShellLink.WindowStyle = 1
oShellLink.IconLocation = DLookup("[pc]", "[tblsho]")
oShellLink.Description = DLookup("[nsh]", "[tblsho]")
oShellLink.WorkingDirectory = strDesktop
oShellLink.Save
End Sub
تحت الزر الموجود في النموذج ضع هذا الاستدعاء .............
Call CreateDesktopShortcutWithIcon
جرب وأعلمنا بالنتيجة <<<<<>>>>>>