Code:
Sub Form1_Command2_BN_Clicked(hWndForm As hWnd, hWndControl As hWnd) '单击
Dim ABC As String Ptr = New String
*ABC = "China"
'CreateThread (NULL,0,@ThreadSub,ABC,0,0)
Threaddetach ThreadCreate(Cast(Any Ptr ,@ThreadSub) ,ABC)
End Sub
Sub ThreadSub(StrAPtr As String Ptr)
MsgBox *StrAPtr
Delete StrAPtr
End Sub
sub ThreadSub2(Arg1 As LPVOID)
MsgBox *Cast(String Ptr,Arg1)
Delete Arg1
End Sub
Sub ThreadSub3(Arg1 As Any Ptr)
MsgBox *Cast(String Ptr,Arg1)
Delete Arg1
End Subvfb(visual freebasic),ide like vb6,vb7.support x64,createthread,asm code
(94) Vfb IDE【Visual Freebasic】Like vb6,vb7,Update2021-2-23 - freebasic.net
https://www.freebasic.net/forum/view...hp?f=8&t=28522
download vfb ide:
https://github.com/xiaoyaocode163/VisualFreeBasic
http://www.yfvb.com/soft-48.htm (version 5.5.3,update:2021-2-23)
