请高人指点：如何实现等待按键和等待按鼠标

[qingyun1136]

需要这样编这样两个函数WaetKey（）和WaitClick（），
程序暂停，等待按键和等待按鼠标，才继续运行。
WateKey返回所按键的KeyCode,
WateClick返回鼠标按键时的信息，按了哪个键和按键时鼠标坐标
这两个函数怎么编写？请高人指点。

例如:我要这样调用
dim k as integer
Private Type MOUSEMSG
Btn as integer
x As Long
y As Long
End Type

sub test
'等待按键
k=WateKey()
MsgBox "你按的键值" + str(k)
'等待按鼠标
m=WateClick(msg as MOUSEMSG)
MsgBox "你按的鼠标按钮为" + str(msg.btn)
MsgBox "你按鼠标时鼠标位置为" + str(msg.x) + ',' + str(msg.y)


end sub