vb.net可以实现在窗口中print，但是相当麻烦。推荐用Debug的Write方法和WriteLine将内容显示在立即窗口：
公司主营业务：成都做网站、网站建设、移动网站开发等业务。帮助企业客户真正实现互联网宣传，提高企业的竞争能力。创新互联建站是一支青春激扬、勤奋敬业、活力青春激扬、勤奋敬业、活力澎湃、和谐高效的团队。公司秉承以“开放、自由、严谨、自律”为核心的企业文化，感谢他们对我们的高要求，感谢他们从不同领域给我们带来的挑战，让我们激情的团队有机会用头脑与智慧不断的给客户带来惊喜。创新互联建站推出廉江免费做网站回馈大家。
Debug.WriteLine("xxxxx")
Debug.Write("xxxxx")
二者区别在于：WriteLine相当于在打印内容后自动加上一个回车换行符，而write则没有，如果有连续多个Write语句，则所打印的内容将是连在一起的。当然，原来的Print和？在立即窗口中还能使用。
如果需要显示的内容很多，可以用控制台程序来解决。
给点提示吧，已粗体为例（完全是我自己的方法，不知别人是怎么做的）：
'先获取选择的字体信息（字体、大小、样式。。。）
Dim currentFont As System.Drawing.Font = RichTextBox1.SelectionFont
'在重新定义某种样式的时候，不丢失其他信息
RichTextBox1.SelectionFont = New Font(currentFont.FontFamily, currentFont.Size, FontStyle.Bold)
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Dim s As String = "0Ff0ajkh04624F"
Dim i As Integer = 0
Dim sTemp As String = ""
Dim ss As String = ""
For i = 1 To Strings.Len(s)
sTemp = Mid(s, i, 1)
If Asc(sTemp) = 65 And Asc(sTemp) = 90 Then
sTemp = LCase(sTemp)
ElseIf Asc(sTemp) = 95 And Asc(sTemp) = 122 Then
sTemp = UCase(sTemp)
Else
sTemp = sTemp
End If
ss = ss sTemp
Next
MsgBox(ss)
End Sub
1.窗体数据传递 2.弱智问题 3.新建:清空文本框,如果当前文本框有内容,询问是否保存 打开:openfiledialog控件 保存:savefiledialog控件 复制:copy . . 4:无技术含量 5:无技术含量
你可以在窗体上放一个lable控件，取名叫lable1，
那么实现方式就是：
private
sub
form_load()
lable1.text="今天天气很好";
end
sub
你可以试试