awerva 发表于 2018-4-25 22:05:26
|
显示全部
Private Sub Command1_Click()
Form1.Text1.FontBold = True
End Sub
Private Sub Command2_Click()
Form1.Text1.FontSize = Form1.Text1.FontSize + 5
End Sub
Private Sub Command3_Click()
Form1.Width = Form1.Width + 200
End Sub
|
|