Dim NewFont As New Font("Times New Roman", 12, FontStyle.Regular) AxSftDirectory1.
Font
= NewFont