I did a bit of digging into CSS syntax and came up with this modification to sevedee's code.
hTimer As Timer
siCount As Short
Public Sub Form_Open()
Dim hBorder As Border
hTimer = New Timer As "Timer1"
hTimer.start
hBorder = New Border
'specify cell border
With hBorder
.Width = 5
.Color = Color.Red
.BottomStyle = Border.Raised
.BottomColor = Color.DarkBlue
.TopColor = Color.Green
End With
GridView1.Columns.Count = 3
GridView1.Rows.Count = 6
GridView1.Header = GridView1.Both 'Interesting that "GridView1" works as well as "GridView"
GridView1.Columns.Width = 150
GridView1.Rows[1].Height = 50
GridView1[0, 1].Text = "jornmo"
GridView1[1, 1].Text = "cogier"
GridView1[2, 1].Text = "stevedee"
GridView1[5, 1].Text = "Hello world!"
GridView1[5, 1].Alignment = Align.Center
GridView1.Grid = False
GridView1.Border = True 'enable control border
GridView1[1, 1].Border = hBorder 'apply cell border
End
Public Sub Timer1_Timer()
Dim sBor As String[] = ["style:", "none ", "plain "]
Dim sDer As String[] = ["02111", "01211", "01121", "01112", "021115", "02211", "02221", "02222"]
Dim siCounter As Short
Dim sTemp As String
For siCounter = 1 To 5
sTemp &= sBor[Mid(sDer[siCount], sicounter, 1)]
Next
If siCount = sDer.Max Then GridView1[5, 1].Font.Bold = True Else GridView1[5, 1].Font.Bold = False
GridView1[5, 1].border = New Border(sTemp)
Inc siCount
If siCount = sDer.Count Then siCount = 0
End