运行指定代码问题

Question

谁知道在一个sub中如何执行另一个sub中的内容，也就是说如果存在2个代码：
Private Sub Command1_Click()End Sub和Private Sub Timer1_Timer()
msgbox."sssss"
end sub 假设timer1的循环时间设置为1小时，在这1小时之内，我如何才能再点击command1后立即执行timer1呢？执行了以后timer1的原有计时不变。
谢谢各位的回答~~~~~~~~~~

Answer 1

'将timer1中的执行语句写成一个过程，通过调用来实现
Private Sub Command1_Click() 
    call m_test
End Sub Private Sub Timer1_Timer() 
    if 条件成立 then
        call m_test
    end if 
end sub private sub m_test()
   msgbox "sssss"
end sub

Answer 2

是的，将timer1中的语句写成一个过程来调用

Answer 3

顶一楼把语句同时放在COMMOND_ONCLICK事件和TIMER实事件中```
分别执行~

Answer 4

Private Sub Command1_Click()
  Call Timer1_Timer
End Sub

Answer 5

1小时？ Timer控件的 .Interval 属性最大值只有65秒半的时间，你的 Timer1_Timer() 中的代码不会只有那一句吧！真要能完成“1小时”的计时，那就要用 1F 的那种方法来达到你的需求。

Answer 6

我是要写一个类似vista自带的幻灯片的程序。虽然1楼的回答不是我想要的，但是感谢1楼的回答，1楼的回答给了我灵感！我所遇到的问题是，当文件夹内没有指定的扩展名的图片时，立即再次调用time1（因为time1中不只有变换图片指令，还有当产生错误时读取下一累扩展名图片指令）。现在问题解决了，我将time1中的代码在复制成一个自定义函数，即“Function xx()”。过程：
当time1出现找不到当前扩展名文件时，转到On Error GoTo LErr1，执行判断语句，自定义变量+1并变换需要搜索的扩展名。然后调用模块中的sfile = Dir(dz + lx)做数组（调用并做数组过程原理和1楼的相同）。然后由于所变换的扩展名仍未找到，所以数组转到On Error GoTo LErr2执行call form1.xx在此写出基本过程，希望对有需要的人有一些启发~~~~~~~~~~

Answer 7

对了，刚才没注意看，还要感谢6楼，但是time无法直接被调用。我做了个function才可以，谢谢！