扒衣服吻戏揉胸视频:如何让VB运行我所指定的程序？

有一个函数：WinExec

声明：
Private Declare Function WinExec Lib "kernel32" Alias "WinExec" (ByVal lpCmdLine As String, ByVal nCmdShow As Long) As Long

---------------------------
lpCmdLine 保存程序的绝对路径。
nCmdShow 保存程序的启动方式。

启动方式参数：
sw_hide:隐藏窗口
sw_maximze:最大化窗口
sw_minimze:最小化窗口
sw_restore:使用原始大小及位置显示窗口，并进入活动状态
sw_show:使用当前大小及位置显示，并进入活动状态
sw_showmaximized:最大化，激活
sw_showminimized:最小化，激活
sw_showminnoactive:最小化一个窗口，并不改变活动窗口
sw_showna:使用当前大小及位置显示，不改变活动窗口
sw_shownoactive:用最近的大小及位置显示，不改变活动窗口
sw_shownormal:与sw_restore相同

'定义常量
Private Const sw_hide = 0
Private Const sw_maximze = 3
Private Const sw_minimze = 6
Private Const sw_restore = 9
Private Const sw_show = 5
Private Const sw_showmaximized = 3
Private Const sw_showminimized = 2
Private Const sw_showminnoactive = 7
Private Const sw_showna = 8
Private Const sw_shownoactive = 4
Private Const sw_shownormal = 1
'定义常量

程序过程（假设Command1的单击事件）

Private Sub Command1_Click()

Call WinExec( Label1.Caption , SW_RESTORE)

End Sub

================================================

如果你想用shell打开你指向的文件则需要将Label1.Caption作为shell的参数整合到lpCmdLine中

比如：

Dim GoRun As string

GoRun = "shell地址" & " " & Label1.Caption

Call WinExce(GoRun,SW_RESTORE)

++++++++++++++++++++++++++++++++++
我对你所说的shell方法并不很理解，不知道能不能帮上你。

也太麻烦了吧！
用这个：
aa=shell(label1.caption,1)
就可以打开指定的exe 或com文件。
记得一定要有返回值。