"CajunCoiler (http://www.cajuncoiler.tk)"
<poohbear1961@totallyspamless.cox.net> wrote in message
news:OMVpb.2867$In3.2539@lakeread01...[color=blue]
> They seem to work ok for me... pray tell, what have you
> found that is askew?
>
> "Adrian Parker" <no@addy.com> wrote in message
> news:LbTpb.715$143.32691@news20.bellglobal.com...[color=green]
> > Does Microsoft have a Bug Reporting form or method, so that the generaly
> > public can report specific bug?
> >
> > I seem to have found a problem with the Caption property of Visual Basic
> > 6.0's Labels.[/color][/color]
Add a textbox named Text1 (Multiline property set to True). Add a label
named lblOutput3. Set the font of both to Courier New.
Now use the code below. Notice that the alignment in the textbox is right
aligned, as is proper, but in the label every line after the first has a
single space improperly padded to the right of the string. That or it's
only printed to a string which is only 6 characters wide, which is still
wrong at any rate.
Dim intQuantity As Long
Dim curTicketPrice As Currency
Dim curFee As Currency
Dim curSubtotal As Currency
intQuantity = 24
curTicketPrice = 22.34
curFee = 2.567
curSubtotal = curTicketPrice + curFee
lblOutput3.Caption = Format(intQuantity, "@@@@@@@") & vbCrLf _
& Format(Format(curTicketPrice, "fixed"), "@@@@@@@") & vbCrLf _
& Format(Format(curFee, "fixed"), "@@@@@@@") & vbCrLf _
& Format(Format(curSubtotal, "fixed"), "@@@@@@@") & vbCrLf & vbCrLf
Text1.Text = lblOutput3.Caption
Debug.Print lblOutput3.Caption
Adrian
Report Bugs 
