Here is the code I have written in the Got_focus event of the first text box.
Dim pnl As Panel
With Sbr1.Panels(1).Text = "Record" & rs!Index
.AutoSize = sbrSpring
.Style = sbrText
End With
Set pnl = Sbr1.Panels.Add
pnl.Style = sbrCaps
pnl.AutoSize = sbrContents
Set pnl = Sbr1.Panels.Add
pnl.Style = sbrNum
pnl.AutoSize = sbrContents
Set pnl = Sbr1.Panels.Add
pnl.Style = sbrIns
pnl.AutoSize = sbrContents
Set pnl = Sbr1.Panels.Add
pnl.Style = sbrDate
pnl.AutoSize = sbrContents
Set pnl = Sbr1.Panels.Add
pnl.Style = sbrTime
pnl.AutoSize = sbrContents
It is not working!!!
Where is the mistake??