vb 高手请进，新手提问 储存问题

自己想做一个 如同快捷方式一样，但也有所不同的东西，向网吧的游戏管理页面一样！

Private Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" (ByVal hInst As Long, ByVal lpszExeFileName As String, ByVal nIconIndex As Long) As Long
Private Declare Function DrawIcon Lib "user32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal hIcon As Long) As Long
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Const SW_SHOWNORMAL = 1 '打开文件

Private Sub Command1_Click()
Dim x1 As Long
Dim x2 As Long

Picture1.Cls
Picture1.AutoSize = True
Picture1.AutoRedraw = True

CommonDialog1.ShowOpen
lCount = ExtractIcon(App.hInstance, CommonDialog1.FileName, -1)
If lCount > 0 Then
astr = Com

组策略~~新手提问 高手请进 VB新手提问 VB新手的提问~ 新手提问：关于VB运算的代码。 ASP高手新手请进!` 新手牌组求改！！高手请进。 新手上路，高手请进 PSP 提问，高手请进 文言文提问高手请进！！！ 诗词提问，高手请进！！！！！！！！！！！