主题：[求助]Panel 边框颜色

 
此主题相关图片如下：2.png

放全局变量里，报错

     AddHandler p.paint, AddressOf panel_paint
    p.refresh

能把边框加粗吗？

 对小白来说，看这个难点大呀

有啥办法能看到呢?

有办法加大边框吗？

     Dim controlname As String
    If TypeOf e.sender Is WinForm.Panel Then
        controlname = e.sender.name
    ElseIf e.sender.parent IsNot Nothing Then
        If TypeOf e.sender.Parent Is WinForm.Panel Then
            controlname = e.sender.parent.name
        End If
    End If
   
    '    If Tables("main").Current("所选桌台") > "" Then
    Dim hf As system.windows.forms.panel = Forms("菜单").Controls(Tables("main").Current("所选桌台")).basecontrol
    RemoveHandler hf.paint, AddressOf panel_paint
    '    End If
   
    Vars("序号") = controlname
    Dim l As Integer = Tables("桌台信息").Rows.Count
    For i As Integer = 0 To l - 1
        Dim r As Row = Tables("桌台信息").Rows(i)
        Forms("菜单").Controls(r("序号")).BorderStyle = BorderStyle.None
        Forms("菜单").Controls(r("序号")).BackColor = Color.Lightgray
    Next
   
    If TypeOf e.sender Is WinForm.PictureBox Then
        Dim tt As system.windows.forms.panel = Forms("菜单").Controls(controlname).basecontrol
        AddHandler tt.paint, AddressOf panel_paint
        tt.refresh
    End If
    If TypeOf e.sender Is WinForm.PictureBox Then
        e.Form.Controls("TextBox1").Text = Vars("序号")
        Dim zt As DataRow = DataTables("桌台信息").SQLFind("序号='" & Vars("序号") & "'")
        e.Form.Controls("xz").Text = zt("桌台号") & zt("图标类型")
        Tables("main").Current("所选桌台") = controlname
        Tables("main").save
    End If

我是这样写的，不好用，老师

 我用Tables("main").Current("所选桌台") 这个字段记录，之前点的是哪个panel