menu bar??

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.

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.

Code:

---

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

---

Thanks Megatron and HeSaidJoe the suggestions really helped!!

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.

Uuuups...my mistake...

P.S. But the colors are the same :)

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

Quote:

---

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.