28. Write a VB program to create status bar and display it on onto the form


Private Sub Form_Load()
Dim p1 As Panel
Set p1 = StatusBar1.Panels.Add(1)
p1.Text = “OK”

Dim p2 As Panel
Set p2 = StatusBar1.Panels.Add(2)
p2.Style = sbrDate

Dim p3 As Panel
Set p3 = StatusBar1.Panels.Add(3)
p3.Style = sbrTime

Dim p4 As Panel
Set p4 = StatusBar1.Panels.Add(4)
p4.Style = sbrCaps

Dim p5 As Panel
Set p5 = StatusBar1.Panels.Add(5)
p5.Style = sbrNum

End Sub

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s