double underline textbox

G

gator

how can I apply a double underline for the text in a textbox, besides
dragging a line (twice) from the toolbox?
 
D

Duane Hookom

You can use a little code in the On Format event of the report section
containing the text box to draw lines:
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
Dim lngY1 As Long
Dim lngX1 As Long
Dim intXLength As Integer
Dim intYSpace As Integer
lngX1 = Me.txtBoxToDoubleUnderline.Left
intXLength = Me.txtBoxToDoubleUnderline.Width
intYSpace = 20
lngY1 = Me.txtBoxToDoubleUnderline.Top + Me.txtBoxToDoubleUnderline.Height
Me.Line (lngX1, lngY1)-Step(intXLength, 0)
Me.Line (lngX1, lngY1 + intYSpace)-Step(intXLength, 0)
End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Two lines in one in one line - How to do 2
Creating Different Headers in Word 0
ASK Field Formatting 1
Small Thick "Bar" Below Last Typed Line ? 0
How to make the shading look uniform around a double spaced line in MS Word? 0
Trying to remove error from conflicting code 0
Stop double-lines 1
How to Make Underline (Thick) default? 1

Top