كيف اجعل برنامجي يكتب اسمه خصائص الاختصار مثل الذي في الصوره؟؟

السلام عليكــم ورحمـة الله وبركاتــه ،،

البيانات الموضحة فى الصورة هى خصائص عامة لأى اختصار وليست شيئا برمجيا خاص بالآلة الحاسبة فقط

عموما

هذه طريقة انشاء اختصار على سطح المكتب

Private Sub Command1_Click()
	Dim WshShell As Object
	Dim strDesktop As String
	Dim oMyShortCut As Object

	Set WshShell = CreateObject("Wscript.shell")
	If (WshShell Is Nothing) Then Exit Sub
	strDesktop = WshShell.SpecialFolders("Desktop")
	Set oMyShortCut = WshShell.CreateShortcut(strDesktop + "\Sample.lnk")
	oMyShortCut.WindowStyle = 4  '3- Maximized 7=Minimized  4=Normal
	'oMyShortcut.IconLocation = "C:\myicon.ico"
	oMyShortCut.TargetPath = "%windir%\notepad.exe"
	oMyShortCut.Arguments = "c:\temp.txt"
	'oMyShortcut.Hotkey = "ALT+CTRL+F"
	oMyShortCut.Save
End Sub

استاذي الكريم

السلام عليكم ورحمة وبركاته وبعد

الله يحفظكم ويرعاكم والف شكر مني الى سعادتكم

ولكم مني فائق الاحترام والتقدير

تلميذك : سالم