请问VB怎样实现按C键每隔一秒钟一次？？

给你个正确的！
首先在窗体的Keypress时间中写入
if keyyascii=99 then
timer1.Enabled = True
timer1.interval=1000
else
end if
在窗体的key_up事件里写上
if key_code=99 then
timer1.enable=flase
else
end if
在timer1里写入你要每隔一秒要执行的操作，
注：可能会有个别单词错了！

Private Sub Command1_Click()
Timer1.Interval = 1000 '设置timer1事件的间隔，就是每1秒执行一次timer1_timer过程中的代码
Timer1.Enabled = True '开启timer
Label1.Caption = 0
End Sub

Private Sub Timer1_Timer()
''你要按C键干什么?没想法...
End Sub

vb .多麻烦 ...你用按键精灵。。方便快捷下载地址： http://www.skycn.com/soft/6854.html

用(Timer)控件,Interval可以调亊件间隔的毫秒数.