The funeral of Azeroth

vb.11.10 帅哥成长器

Private Sub Command1_Click()
Form1.Text1.FontBold = True

End Sub

Private Sub Command2_Click()
Form1.Text1.FontItalic = True
Form1.Text1.FontUnderline = True

End Sub

Private Sub Command3_Click()
Form1.Width = Form1.Width + 100
Form1.Height = Form1.Height + 100

End Sub

Private Sub Command4_Click()
Form1.Width = Form1.Width - 100
Form1.Height = Form1.Height - 100
End Sub

Private Sub Text1_Change()

End Sub

posted on 2010-11-10 15:28 Herose 阅读(89) 评论(0)  编辑  收藏