‘初始化-第六讲控件应用

‘初始化Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load intFontSize = 9 bFontIntatic = FontStyle.Regular bFontBold = FontStyle.Regular strFontName = "宋体" TextBox1.Font = New Font(strFontName, intFontSize, bFontIntatic Xor bFontBold) End Sub