vb生成EXE 时内存溢出

代码如下

Private Sub Command1_Click()
Label1.FontName = "楷体"

End Sub

Private Sub Command2_Click()
Label1.FontSize = "20"

End Sub

Private Sub Command3_Click()
Label1.FontBold = ture

End Sub

Private Sub Command4_Click()
Label1.FontBold = False
Label1.FontSize = "12"
Label1.FontName = "宋体"
Label1.FontUnderline = False
Label1.FontItalic = False
Label1.FontStrikethru = False

End Sub

Private Sub Command5_Click()
Label1.FontUnderline = True

End Sub

Private Sub Command6_Click()
Label1.FontItalic = True

End Sub

Private Sub Command1_Click()
Label1.FontName = "楷体_GB2312"

End Sub