>>541さん、親切にありがとうございます。おっしゃる通りです。 構造体の宣言とインポートの部分はこんな感じになっていますが、 なにか構造体に間違いはございませんか？ Structure SECURITY_QUALITY_OF_SERVICE Public Length As Integer Public Impersonationlevel As Short Public ContextTrackingMode As Short Public EffectiveOnly As Integer End Structure Structure CONVCONTEXT Public cb As Integer Public wFlags As Integer Public wCountryID As Integer Public iCodePage As Integer Public dwLangID As Integer Public dwSecurity As Integer Public qos As SECURITY_QUALITY_OF_SERVICE End Structure
'DdeConnect宣言 Declare Function DdeConnect Lib "user32" Alias "DdeConnect" _ (ByVal idInst As Integer, ByVal hszService As Integer, ByVal hszTopic As Integer, ByVal pCC As CONVCONTEXT) As Integer
