If CType(sender, Control).HasChildren Thenįor Each Child As Control In CType(sender, Control).ControlsĬoding for fun Be a good forum member mark posts that contain the answers to your questions or those that are helpful Please format the code in your posts with the button. Private Sub ChangeTheFont(ByVal sender As System.Object) Public Function FontExists(ByVal FontName As String) As Booleanĭim FC As New įor Each F As In FC.Families Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If a control has child controls then the ChangeTheFont sub is called for each child control, so it again checks if the control passed has child controls and if so calls the sub for each of them and so on and so on.

Please look at the readme-files in the archives or check the indicated authors website for details, and contact him if in doubt. The licence mentioned above the download button is just an indication. This code is recursive that is the controls in the ChangeTheFont sub call the sub as so will go however many levels you have. This fonts are authors property, and are either shareware, demo versions or public domain.

Me.controls are the controls of the form if you want to change the controls of a panel then change the controls in it's controls collection. License: Free for personal use.This is a preview font for testing, you can purchase its full version at.

The groupboxes and panels are controls of your form.

Is segoe ui font free