调用方式:
Private Sub Command1_Click()
ShortCut vbDesktop, "意达进销存管理系统", "http://localhost/app", "意达"
ShortCut vbStartMenu, "意达进销存管理系统", "http://localhost/app", "意达"
ShortCut vbStartMenu, "意达进销存管理系统1", "http://localhost/app1", "意达"
Me.Show
MsgBox "ok"
End Sub
Private Sub Command2_Click()
DelShortCut vbDesktop, "意达进销存管理系统", "意达"
DelShortCut vbStartMenu, "意达进销存管理系统", "意达"
DelShortCut vbStartMenu, "意达进销存管理系统1", "意达"
End Sub