' Center caption in Adodc control'' Input: frmForm - Form Adodc contol in on' datAdodc - Adodc control' sCaption - Caption text'' Output: Padded Caption textSub CenterCaptionInAdodc(ctrl As Adodc, ByVal sCaption As String) Dim lTextWidth As Long Dim lSpaceWidth As Long Dim iPad As Long sCaption = Trim(sCaption) lTextWidth = ctrl.Parent.TextWidth(sCaption) lSpaceWidth = ctrl.Parent.TextWidth(" ") iPad = Round(((ctrl.Width - lTextWidth - 1300) / 2) / lSpaceWidth, 0) ctrl.Caption = Space(iPad) + sCaptionEnd Sub


The Best Mechanical Keyboards For Programmers: Where To Find Them
When it comes to programming, a good mechanical keyboard can make all the difference. Naturally, you would want one of the best mechanical keyboards for programmers. But with so many