Private DSL As New DSCoolLabel.DSCoolLabel

'定义一个图像列表
Dim ImgList As New List(Of Bitmap)

   Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        With DSL
            '先清空旧的图标集
            .ImgList.Clear()
            '一个个添加图标到图标集，在后面的字串中的<IMG>将按出现的次序从该图标集读取，如第一个出现的<IMG>将使用ImgList(0)，依此类推，需用户按顺序添加，以免在最终输出效果时出现图标次序错误。
            .ImgList.Add(My.Resources.D__8_)
            .ImgList.Add(My.Resources.share_icons)
            .ImgList.Add(My.Resources.C__29_)
            .ImgList.Add(My.Resources.D__8_)
            .ImgList.Add(My.Resources.share_icons)
            .ImgList.Add(My.Resources.C__43_)
            .ImgList.Add(My.Resources.B__6_)
            .ImgList.Add(My.Resources.B__40_)
            .ImgList.Add(My.Resources.B__9_)
            .ImgList.Add(My.Resources.B__39_)
            .ImgList.Add(My.Resources.C__20_)
            '绘制文字描边，默认黑色
            .DrawTextOutLine = True
            '行间距
            .CharLine = 8
            '字符间距
            .CharWidth = 0
            '文字投影
            .DrawShadow = True
            '提供给绘制程序最大的绘制区域（如窗体大小）
            .TextRect = New Rectangle(0, 0, 373, 400)
            '文字描边色
            .TextOutLineColor = Color.Black
            '包含颜色代码的字串
            .Text = "<255,000,000,b><IMG>[上传]<000,255,000,b>某某人<255,255,255>上传了:<255,255,000><IMG>极点五笔7.1.rar  <255,255,255>文件大小:6.3MB <255,000,000,u><IMG>扫描到威胁" & vbCrLf & "<255,000,000,b><IMG>[上传]<000,255,000,b>某某人2<255,255,255>上传了:<255,255,000><IMG>QQ2011 Beta3.exe  <255,255,255>文件大小:<128,128,128>23MB<128,128,128><128,128,128>(2011年11月7日 9：13)"
            .Text &= vbCrLf & "<255,000,000,b><IMG>[公告]：<000,255,000,b,u>吴总<000,255,255>:本公司各部门严防秋寒，注意保暖。请勿与他人交换毛巾、牙刷等日常生活用品。本公司服务器将在今日下午3点更新维护更新，维护时间：30分钟。希各大公司领导传达！<128,128,128> (2011年11月7日 9：21)"
            .Text &= vbCrLf & "<255,000,000,b><IMG>[发言]<000,255,000,b>成员名称1<255,255,255>说:<255,255,255><IMG>请问谁有杀毒软件，麻烦传一个谢谢。<128,128,128> <128,128,128>(2011年11月7日 10：13)"
            .Text &= vbCrLf & "<255,000,000,b><IMG>[发言]<000,255,000,b>成员名称2<255,255,255>说:我有的，<255,255,255><IMG>我现在就上传到我的文件夹，当我上传完毕后可以在这个界面上看到提示。 <128,128,128>(2011年11月7日 10:36)"
            .Text &= vbCrLf & "<255,000,000,b><IMG>[索取文件]<000,255,000,b>成员名称3<255,255,255>请求提供文件:<255,255,000,b>卡巴斯基KIS2012安装部队套装<128,128,128> <128,128,128>(2011年11月7日 11:02)"
        End With
        'OutBitmap获取绘制完成的效果图
        Me.Backgroundimage=DSL.OutBitmap

        '注：颜色代码必须是RGB每个3位数，即使是0也要是000，如<255,000,000>表示红色
        '扩展：
        '<255,000,000,b>红色粗体文字
        '<255,000,000,u>红色下划线
        '<255,000,000,b,u>红色粗体下划线，字母大小写无所谓
 
    End Sub