b = New Bitmap(size.Width, size.Height)
        Dim g As Graphics = Graphics.FromImage(b)
        g.DrawString(letter.ToString, New Font("Arial", 14, FontStyle.Bold Or _
          FontStyle.Italic, GraphicsUnit.Pixel), Brushes.Black, 0, 0)
        b.Save(My.Application.Info.AssemblyName & ".ico", _
        System.Drawing.Imaging.ImageFormat.Icon)
        If System.IO.File.Exists(My.Application.Info.AssemblyName & ".ico") = _
        True Then
            _icon = New Icon(My.Application.Info.AssemblyName & ".ico", 16, 16)
        Else
            Stop
        End If