double underline textbox

  • Thread starter Thread starter gator
  • Start date Start date
G

gator

how can I apply a double underline for the text in a textbox, besides
dragging a line (twice) from the toolbox?
 
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
 
Back
Top