Abundant Technologies - IT Consulting Experts

 Source Code Library

 Code Details

 
Public Sub ControlFonts(ByRef FForm As Form, ByVal FName As String, ByVal FStyle As String, ByVal FSize As Integer) Dim ctl As Control For Each ctl In FForm.Controls If TypeName(ctl) = "ComboBox" Or TypeName(ctl) = "TextBox" Then ctl.Font = FName ctl.FontSize = FSize Select Case FStyle Case "Bold" ctl.FontBold = True Case "Regular" ctl.FontBold = False End Select End If Next ctl End Sub

Mail To: info@3pc.com