With wb.AddPanelGroup("","pg1","")
    With .Add("pn1","myhome","","./Images/sd.png","")
        .AddFoot("myhome","")

    End With
    .GroupHref = ""
    .Attribute = "style=\'background-color:#3399ff;\'"
End With

请问老师怎样设置./Images/sd.png图片的高度和宽度

只能整体改，不能一个一个的改

Select Case e.Path
    Case "test.htm", ""
        Dim wb As New WeUI
        Dim txt As String = "由各种物质组成的巨型球状天体,叫做星球.星球有一定的形状,有自己的运行轨道."
        With wb.AddPanelGroup("","pg1","图文组合列表")
            .Add("pn1","标题一",txt,"./images/001.jpg","http://www.foxtable.com") \'超链接
        End With
        wb.AppendHTML("<style>.weui_media_appmsg_thumb{height:100%}</style>")
        e.WriteString(wb.Build) \'生成网页
End Select

<style>.weui_media_desc{font-size:30px;}</style>

字体大小和颜色改不了

Select Case e.Path
    Case "test.htm", ""
        Dim wb As New WeUI
        Dim txt As String = "由各种物质组成的巨型球状天体,叫做星球.星球有一定的形状,有自己的运行轨道."
        With wb.AddPanelGroup("","pg1","图文组合列表")
            .Add("pn1","<label style=\'color:red;font-size:20px\'>标题一</lable>",txt,"./images/button.png","http://www.foxtable.com") \'超链接
            With .Add("pn2","标题二",txt,"./images/search.png") \'带子链接
                .AddFoot("文字来源")
                .AddFoot("时间")
                .AddFoot("|其他信息","http://www.foxtable.com")
            End With
        End With
        wb.AppendHTML("<style>.weui_media_box .weui_media_desc{font-size:30px;}</style>")
        e.WriteString(wb.Build) \'生成网页
End Select