ab.com コミュニティ

初歩的なミスだったみたいで大変失礼しました。
迅速な回答ありがとうございます。

#strict 
#prompt

Dim dw As DWord 
Dim sw As DWord 
Dim hnd As HANDLE 

Function Thread(i As Integer) 
    Print i 
    Thread = i 
    sw = 1 
End Function 

hnd = CreateThread(ByVal NULL, 0, AddressOf(Thread), 1, 0, VarPtr(dw)) 
Thread(256) 

Do 
    Loop Until sw = 1 

CloseHandle(hnd)

　CreateThreadの使い方が間違っています。

[hide=修正コード][code]#strict
#prompt

Dim dw As DWord
Dim sw As DWord
Dim hnd As HANDLE

Function Thread(i As Integer)
Print i
Thread = i
sw = 1
End Function

hnd = CreateThread(ByVal NULL, 0, AddressOf(Thread), 1, 0, VarPtr(dw))
Thread(256)

Do
Loop Until sw = 1

CloseHandle(hnd)[/code][/hide]
　上のようにしてください。
なお、結果を確認するため「#console」を「#prompt」に書き換えさせていただきました。

#strict
#console

Dim dw As DWord
Dim sw As DWord
Dim hnd As HANDLE

Function Thread(i As Integer)
	Print i
	Thread = i
	sw = 1
End Function

hnd = CreateThread(ByVal NULL, 0, AddressOf(Thread(1)), NULL, 0, VarPtr(dw))
Thread(256)

Do
	Loop Until sw = 1

CloseHandle(hnd)

マルチスレッドを試してみようと簡単なコードを作ってみたのですが、コンパイラーからは「プロシージャが定義されていない」というエラーが返されます。

[code]
#strict
#console

Dim dw As DWord
Dim sw As DWord
Dim hnd As HANDLE

Function Thread(i As Integer)
Print i
Thread = i
sw = 1
End Function

hnd = CreateThread(ByVal NULL, 0, AddressOf(Thread(1)), NULL, 0, VarPtr(dw))
Thread(256)

Do
Loop Until sw = 1

CloseHandle(hnd)
[/code]

ちなみにスレッド用に定義したプロシージャを直接呼び出すとうまくいくのでどうしたらいいのか頭を抱えてしまいました。
WindowsXP SP2上のActiveBasic 4.22/4.23でチェックしてあります。