编译错误 用户定义类型未定义

Private Sub UserForm_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If ucase(Chr(KeyAscii)) = "S" Then
Call capDlgVideoFormat(hCapWnd)
Call ResizeCaptureWindow(hCapWnd)
End If
End Sub
以上是vba调用视频 按S键可以设置视频，之前是好用的，可是现在出现用户定义类型未定义，求解。

原因：用到的库没有引用。
解决方法： 工程-引用，把勾选需要引用的库。

以上仅供参考，如有任何疑问，可以评论回复，看到即回。
希望对题主有所帮助！可以的话，点个采纳！