Private Sub File1_DblClick()
If UCase(Right(File1.FileName, 4)) = ".EXE"滚羡 Then
Shell File1.Path & "乱圆\"大陪拍 & File1.FileName
End If
End Sub
在百度搜索
vb shell 等待
Private Sub File1_DblClick()
Shell iif(int(rnd*2)=1,"D:\链闭纳超态腔级兔子\棚没MagicSet\MagicSet", "D:\VB精简版\Vb6")
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024