VB用户双击窗体,清除窗体上的所有内容

Private Sub Form_Click()
With Me
.Font = "楷体_GB2312"
.FontSize = 24
.FontItalic = True
.FontBold = True
.FontUnderline = True
End With
Print "Visual Basic程序设计教程"

End Sub

Private Sub Form_DblClick()
Me.Cls
End Sub

很简单的...看得懂吧.
主要是先设置窗体上字体的属性，让他们具有粗斜体和下划线等属性
然后再在窗体上打印出来...

编一个窗体单击Click事件和窗体双击DblClick事件就可以了。
刚开始制作一个Label框，里面输入文字“Visual Basic程序设计教程”，然后在窗体加载中编辑Label1.Visible=False，Label1.Font = "楷体_GB2312",Label1.Font.size = "24";
再编单击事件，Label1.Visible=True；
再编双击事件，Label1.visible=False，就搞定了。

Private Sub Form_Click()
Form1.Cls
Print "Visual Basic程序设计教程"
End Sub

Private Sub Form_DblClick()
Form1.Cls
End Sub

Private Sub Form_Load()
Form1.FontSize = 24
Form1.FontItalic = True
Form1.FontUnderline = True
Form1.Font = &quo