Add 3D Line Under The Menu

'Add 1 Frame and 1 Menu to your Form.
'Insert the following code to your form:

Private Sub Form_Load()
Frame1.Caption = ""
Frame1.Height = 30
Frame1.Width = Screen.Width + 100
Frame1.Move -50, 0
End Sub