把下面复制到窗体, 点击文本框就会看到效果 '判断插入符光标的闪烁频率 Private Declare Function GetCaretBlinkTime Lib "user32" () As Long '指定插入符(光标)的闪烁频率 Private Declare Function SetCaretBlinkTime Lib "user32" (ByVal wMSeconds As Long) As Long Dim OldBlinkTime As Long, Retval As Long ...