这说明你调用 API 传参存在问题。
溪湖网站建设公司创新互联,溪湖网站设计制作，有大型网站制作公司丰富经验。已为溪湖千余家提供企业网站建设服务。企业网站搭建\成都外贸网站建设要多少钱，请找那个售后服务好的溪湖做网站的公司定做！
首先有没有设置结构体内存对齐？
[StructLayout(LayoutKind.Sequential)] 加了吗？
COLORREF 不要用 Color 代替，用 int 代替
TCHAR cfFaceName[32] 定义为 Byte 数组也可以，带在传参前，必须初始化为 32 个长度
set xxx=nothing就是把对象占用的空间释放掉。 其他的局部变量都在栈内存,用完会自动释放的
你试试行不行
Dim bt As Bitmap = New Bitmap(456, 456)
Dim dcObject As Integer = bt.GetHbitmap().ToInt32()
不要用 Initialize，直接用 New 构造函数。
Public Sub New()
MyByte = New Byte(Size) {} 'Size就是数组的大小
End Sub