请问一个关于PostMessage的有关问题

请教一个关于PostMessage的问题。
我想用PostMessage模拟发送10次按键或鼠标的10次单击事件，能否直接发送？像Sendkeys那样SendKeys "{t 10}",而不是一次次的调用，
Public Sub LeftClick()
  '左键按下
  mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
  '左键放开
  mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
End Sub
像上面的，要双击的话必须这样
LeftClick
LeftClick
次数少的话还可以接受，但是如果要按100次，1000次的话，岂不是很麻烦？
LeftClick
LeftClick
.........
.........
用PostMessage发送按键也是。有什么好方法吗？不要告诉我用TIMER哦，而且发送按键必须用PostMessage

[解决办法]
你难道不可以用循环吗？

VB code

Public Sub LeftClick(ByVal times As Long)    Do While times > 0    '左键按下        mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0        '左键放开        mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0        times = times - 1    LoopEnd Sub
[解决办法]
for i = 1 to 100
   LeftClick
next