嗨Raj，



我不知道为什么要将C＃代码转换为VB6.0 ;-)

我想建议的是，尝试将C＃代码转换为VB.Net最初将VB.Net代码转换为VB6.0。

可能你很容易做到这一点。

我已经将C＃代码转换为VB。您的净代码

Hi Raj,

I do not know why you want to convert C# code to VB6.0 ;-)
What I would like to suggest is, try to convert the C# code to VB.Net initially then convert VB.Net code to VB6.0.
Probably it would be easy for you to do it.
I have converted C# code to VB.Net code for you

Public Shared Function CreateCursor(bmp As Bitmap, xHotSpot As Integer, yHotSpot As Integer) As Cursor
    Dim tmp As New IconInfo()
    GetIconInfo(bmp.GetHicon(), tmp)
    tmp.xHotspot = xHotSpot
    tmp.yHotspot = yHotSpot
    tmp.fIcon = True
    Return New Cursor(CreateIconIndirect(tmp))
End Function

Public Structure IconInfo
	Public fIcon As Boolean
	Public xHotspot As Integer
	Public yHotspot As Integer
	Public hbmMask As IntPtr
	Public hbmColor As IntPtr
End Structure

现在你的工作是将这个概念从VB.Net重写为VB6.0

希望这会对你有所帮助。



问候，

RK

Now its your work to rewrite the concept from VB.Net to VB6.0
Hope this helps you a bit.

Regards,
RK