VB加载SYS驱动如何判断加截成功？

部分代码及要求如下：


Dim c_Drv As New cls_Driver, szDrvFilePath As String

Private Sub Form_load()
    With c_Drv
        .szDrvFilePath = App.path & "\sprdll.sys"   
注：如果这句加载成功则提示“加载成 功”，如果加载失败（比如sprdll.sys不存在，或者被360卫士拦截阻止等）则提示“加载失败”
这个判断的语句该怎么写？
    End With        

End Sub

问题补充：

如果需要我提供全部源码的再说。



[ 本帖最后由 ranrise 于 2012-12-24 15:49 编辑 ]