Vb. NET set any image file to mouse shape

Vb. NET code

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

Code to make a backup.