Skip to content

Instantly share code, notes, and snippets.

@kumatti1

kumatti1/Module1.bas

Created December 24, 2014 22:25
Show Gist options
  • Save kumatti1/8f5f7ec76dd4ab758285 to your computer and use it in GitHub Desktop.
Save kumatti1/8f5f7ec76dd4ab758285 to your computer and use it in GitHub Desktop.
Download ZIP
CoGetApartmentType
Raw
Module1.bas
Option Explicit
Private Declare PtrSafe Function CoGetApartmentType Lib "Ole32" (pAptType As Long, pAptQualifier As Long) As Long
Sub hoge()
Dim arg1&, arg2&, hr&
hr = CoGetApartmentType(arg1, arg2)
Debug.Print Hex$(hr), arg1, arg2
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment