用VB帮我编一个程序，不用太复杂但希望可以多用到其中的不同控件的，谢谢

给你一个简易记事本的程序代码吧。我自己写的。

Dim st As String, s As Integer, n As Integer

Private Sub optfont_click(index As Integer)

Select Case index

Case 0

Text1.FontName = "宋体"

Case 1

Text1.FontName = "楷体"

Case 2

Text1.FontName = "隶书"

End Select

End Sub

Private Sub check1_click(index As Integer)

If Check1(0).Value = 1 Then

Text1.FontBold = True

Else

Text1.FontBold = False

End If

If Check1(1).Value = 1 Then

Text1.FontItalic = True

Else

Text1.FontItalic = False

End If

End Sub

Private Sub optsize_click(index As Integer)

Select Case index

Case