Pertanto, per piazzare il collegamento
sul desktop, inserisci questo codice: Dim iLong As Long iLong = fCreateShellLink("..\..\Desktop", "Collegamento a _ Program", "C:\Path\Program.exe","") Attivare lo Screen Saver... Dichiarazioni: Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, _ ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long Public Const WM_SYSCOMMAND = &H112 Public Const SC_SCREENSAVE = &HF140 Utilizzo: Dim Result As Long Result = SendMessage(Form1.hwnd, WM_SYSCOMMAND, SC_SCREENSAVE, 0&) |