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