这样还原
Dim style As FontStyle = [Enum].Parse(Gettype(FontStyle), 5)Dim size As Single = 12.5Dim name As String = "宋体"Dim ft As New Font(name, size, style)