这个?
Dim font As New Windows.forms.FontDialogIf font.showdialog = DialogResult.OK Then msgbox(font.font.name)End If