Dim g = Forms("窗口1").Controls("RecordGrid1").basecontrolg.Styles.normal.Border.Style = 3
g.styles.Normal.Border.Color = Color.Blackg.styles.Normal.Border.width = 3