VB可否将函数作为参数传递呢

VB能否将函数作为参数传递呢？
本帖最后由 bcrun 于 2012-08-20 19:51:36 编辑 比如：

Private Sub Command1_Click()
    Call mytest(mymsg)
End Sub

Function mytest(ob)
    Do
        Call ob
    Loop
End Function

Sub mymsg()
    MsgBox Now
End Sub

上面代码测试是有问题的，但我想将mymsg函数作为参数传递给 mytest ，这个要怎么做才能真正成功呢？
[解决办法]

引用:

关键是每次调用都要重新Case一次，浪费了系统资源

我是想做一个时段内重复执行某个过程，过程不固定，但是“时段内重复做某事”这个是固定的，所以想通过将函数过程直接传过去。。。。

浪费什么资源呢？ 才那么几次CPU时间， 比起你的“循环做某事”，简直不值一提


如果真的要这样 

sub   Parent(aaa   as   string)   as   boolean       'aaa传入另一函数或过程的名称。 
      CallByName   Me,   aaa,   VbMethod                     me是aaa的窗体或对象(public声明的函数也是对象)       
end   sub 

sub   test1（)   
.... 
end   sub 

sub   acall() 
        Parent   "test1 " 
end   sub