TODO #2045

Only TrueType and OpenType fonts are supported in Windows Forms.

Sample VB6

PrivateSub Form_Load()

Text1.FontName = cboBundleName.FontName = "MS Sans Serif"

EndSub

Target VB.NET

PrivateSub Form1_Load(ByVal eventSender AsObject, ByVal eventArgs As EventArgs) HandlesMyBase.Load

Dim cboBundleName AsObject

'UPGRADE_TODO: (1067) Member FontName is not defined in type Variant.

Text1.Font = VB6.FontChangeName(Text1.Font, CStr(cboBundleName.FontName = "MS Sans Serif"))

EndSub

Target C#

privatevoid Form1_Load( Object eventSender, EventArgs eventArgs)

{

object cboBundleName = null;

//UPGRADE_TODO: (1067) Member FontName is not defined in type Variant.

Text1.Font = VB6.FontChangeName(Text1.Font, (Convert.ToString(cboBundleName.FontName) == "MS Sans Serif").ToString());

}