With the following piece of code OleInitialize function is always returning 1. I want to know, what I am missing out here. In VC++ it retuns 0.
Private Const S_OK As Long = 0
Private Const S_FALSE As Long = 1
Private Declare Function OleInitialize Lib "ole32.dll" (ByVal pvReserved As Long) As Long
Private Declare Sub OleUninitialize Lib "ole32.dll" ()
Private Sub Form_Click()
Dim Handle As Long
Handle = OleInitialize(0)
Select Case Handle
MsgBox "The library was initialized successfully."
MsgBox "The OLE library is already initialized"