VB.NET将任意图像文件设置为鼠标形状

VB.NET将任意图像文件设置为鼠标形状2009-10-08VB.NET代码

Private Sub Button1_Click（ByVal sender As System.Object, ByVal e As System.EventArgs） Handles Button1.Click
    Dim fd As OpenFileDialog = New OpenFileDialog（）
    fd.Filter = "图像文件（*.jpg;*.gif;*.png）|*.jpg;*.gif;*.png" 
    If fd.ShowDialog（） = Windows.Forms.DialogResult.OK Then 
        Dim fn As Image = Image.FromFile（fd.FileName）
        Dim bitmap As New Bitmap（fn）
        Dim handle As IntPtr = bitmap.GetHicon（）
        Dim myCursor As New Cursor（handle）
        Me.Cursor = myCursor
    End If
End Sub