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