menu bar??

[jeffro]

Yesterday I posted a question about putting a line underneath the whole menu bar itself, but the suggestion that was given didn't work. So I was wondering if anyone knows how do the above question. I would like it to look like it is seperated from the form(to make look more professional). Thanks in advance to anyone.

[HeSaidJoe]

use the shape control and draw a line beneath it.

Private Sub Form_Activate()
Shape1.Width = Form1.Width - 400
End Sub

Or you can use the Line method to draw it.

Private Sub Form_Activate()
    Me.AutoRedraw = True
    Me.Line (0, 0)-(Form1.ScaleWidth, 0), RGB(128, 128, 128)
    Me.Line (15, 15)-(Form1.ScaleWidth, 15), vbWhite
End Sub

[jeffro]

Thanks Megatron and HeSaidJoe the suggestions really helped!!

[Arcom]

I have one tiny little complaint about Magatron's method.
Do you really thing that ALL Windows users have that ****** (uups...) grey color for background???

It think it would me much nicer if you use system colors to draw those lines, like this:

Private Sub Form_Load()
Me.AutoRedraw = True
End Sub

Private Sub Form_Resize()
Me.Line (0, 0)-(Form1.ScaleWidth, 0), vbApplicationWorkspace
Me.Line (15, 15)-(Form1.ScaleWidth, 15), vbScrollBars
Me.Refresh
End Sub

It'll also be nice if you use the right constants...

vbApplicationWorkspace should change to vb3DShadow and vbScrollBars should change to vb3DLight.

[Arcom]

Uuuups...my mistake...

P.S. But the colors are the same

[V(ery) Basic]

You could use the GetSystemColor API if you are soooo desperate to conform the user's exact visual specifications

[Joacim Andersson]

Originally posted by Arcom
Uuuups...my mistake...

P.S. But the colors are the same

As you said yourself:
"Do you really think that ALL Windows users have the same ****** (uups...) colors for 3D object shadows that they have for there application workspace.