SLIP 28_1
Option Explicit
Private Sub Form_Load()
Dim panel1 As Panel
Dim Panel2 As Panel
Set panel1 = StatusBar1.Panels.Add(1)
Set Panel2 = StatusBar1.Panels.Add
panel1.Text = "NR CLASSES"
panel1.Alignment = sbrCenter
panel1.AutoSize = sbrContents
Panel2.Style = sbrDate
End Sub
No comments:
Post a Comment
Note: only a member of this blog may post a comment.