vb怎么调用系统的运行对话框？之前网上还能找到源码(可下载的工程)现在基本都是付费或者异常(压缩包损坏)的了。

所谓【运行对话框】，就是要获得一个【可执行文件】的全路径和文件名。
有了【可执行文件】的全路径和文件名，
可以用【Shell】命令在 VB 中执行外部程序的运行命令。
VB—Shell 的语法：Shell(PathName[, WindowStyle])。
语法：
函数形式：Shell(PathName, WindowStyle)
命令形式：Shell PathName, WindowStyle
PathName：路径及可执行文件全名、DOS命令字符串；
WindowStyle（后置参数）：
0　　VbHide　　　　　　　窗口被隐藏，且焦点会移动
1　　VbNormalFocus 　　　窗口具有焦点，且会还原到它原来的大小和位置。
2　　VbMinimizedFocus　　窗口会以一个具有焦点的图标来显示（缺省值）。
3　　VbMaximizedFocus　　窗口是一个具有焦点的最大化窗口。
4　　VbNormalNoFocus 　　窗口会被还原到最近使用的大小和位置，而当前活动的窗口仍然保持活动。
6　　VbMinimizedNoFocus　窗口会以一个图标来显示，而当前活动的窗口仍然保持活动。
例如：用默认浏览器打开指定网页（VBS）
Dim oShell, cWY
Set oShell = WScript.CreateObject("WSCript.shell")
cWY = "http://www.163.com/"
oShell.run cWY
Set oShell = Nothing
例如：在 VB 中调用 IE 浏览器，并打开百度网站的主页。
Dim fnt As String
fnt = "C:\Program Files\Internet Explorer\"
fnt = fnt & "iexplore.exe http://www.BaiDu.com"
Shell fnt, 1
例如：在 VB 中调用《记事本》，并打开【ABC.TXT】文件。
Dim fnt As String
fnt = "C:\Windows\Notepad.EXE ABC.TXT"
Shell fnt, 1
例如：在 VB 中调用 Windows 的《计算器》。
Shell "C:\Windows\System32\Calc.EXE", 1

Private Sub Command1_Click() '　【运行外部程序】按钮
Dim cBL As String, cWJ As String
On Error GoTo CW001
cWJ = "批命令文件(*.BAT)|*.BAT|"
cWJ = cWJ & "可执行文件(*.Com)|*.Com|"
cWJ = cWJ & "可执行文件(*.EXE)|*.EXE|"
cWJ = cWJ & "所有文件(*.*)|*.*|"
With CommonDialog1
.CancelError = True '　允许按【Esc】
.Filter = cWJ '　扩展名表
.FilterIndex = 3 '　扩展名序号
.InitDir = App.Path '　默认路径
.Flags = 6 '　隐藏只读框
.DialogTitle = "运行外部程序" '　标题
.ShowOpen '　打开文件窗体
End With
cWJ = CommonDialog1.FileName '　获得文件名
Shell cWJ, 1
Exit Sub
CW001:
cWJ = "打开文件错误！"
MsgBox cWJ, 0 + 64, "系统提示"
End Sub

添加通用对话框图标的方法

一句搞定：
Call CreateObject("shell.application").FileRun

键盘各键对应的ASCII码值(包括鼠标和键盘所有的键)
https://zhidao.baidu.com/question/266291349.html
ESC键 VK_ESCAPE (27)
回车键：baidu VK_RETURN (13)
TAB键： VK_TAB (9)
Caps Lock键： VK_CAPITAL (20)
Shift键： VK_SHIFT ($10)
Ctrl键： VK_CONTROL (17)
Alt键： VK_MENU (18)
空格键zhi： VK_SPACE ($20/32)
退格键： VK_BACK (8)
左徽标键： VK_LWIN (91)　……………………
右徽标键： VK_LWIN (92)　……………………
鼠标右键快捷键dao：VK_APPS (93)
------------------------------------
Insert键： VK_INSERT (45)
Home键： VK_HOME (36)
Page Up： VK_PRIOR (33)
PageDown： VK_NEXT (34)
End键： VK_END (35)
Delete键： VK_DELETE (46)
方向键(←)： VK_LEFT (37)
方向键(↑)： VK_UP (38)
方向键(→)： VK_RIGHT (39)
方向键(↓)： VK_DOWN (40)

虽然好多楼和子楼都不符合我的意思，但是也出现了该收藏的额外知识点，我该整理整理了。
[附：谢谢各位大佬对我的帮助！]