功能:在桌面上创建一个带有指定数字的图标. 效果图: 生成的ICO图标 代码 Private Sub 生成桌面图标(消息数量 As Integer) Try Dim B As New Bitmap(My.Resources.ICO) Using G As Graphics = Graphics.FromImage(B) G.Clip = New Region(New RectangleF(0, 0, B.Width, B.Height)) Dim Cnt As String = If(消息数量…