谁能把vb语言翻译成VC呢

Public Function Connect_ACAD() As Boolean
Set ACADapp = CreateObject("AutoCad.application")
Select Case VarType(ACADapp)
Case vbEmpty Or vbNull Or vbError
Connect_ACAD = False
Case vbObject
Set ACADdoc = ACADapp.Documents.Add()
If VarType(ACADdoc) = vbObject Then
Connect_ACAD = True
Else
Connect_ACAD = False
End If
Case Else
Connect_ACAD = False
End Select
End Function
谁能把上面这段vb语言翻译成VC呢？急急急急