怎么样用VB语言编制一个电脑中的附件，如写字板，计算器，画图等请把代码加上，急用！！！

Dim myflag%, myjudge%, response%
'禁止改变窗体大小代码开始
Dim oldw&, oldh&

Private Sub Form_Load()
oldw = Me.Width: oldh = Me.Height
Timer1.Interval = 200
'数据初始化
myflag = 1
myjudge = 0
End Sub
Private Sub Form_Resize()
Me.Width = oldw: Me.Height = oldh
End Sub
'禁止改变窗体大小代码结束

'运算符设置
Private Sub Command0_Click(index As Integer)
If index = 0 Then
Text4.Text = "+"
ElseIf index = 1 Then
Text4.Text = "-"
ElseIf index = 2 Then
Text4.Text = "×"
ElseIf index = 3 Then
Text4.Text = "/"
ElseIf index = 4 Then
Text4.Text = "√"
Text5.Text = ""
Text1.Text = ""
ElseIf index = 5 Then
Text4.Text = "^"
ElseIf index = 6 Then
Text4.Text = "Mod"
End If
myflag = -1
End Sub
'数值键命令