怪鸟巴顿:VB显示三角形代码

这是代码,不知道哪里不对...
运行不出来...
帮忙修改~!!!3Q!!!
Private Sub Command1_Click()
TS$ = "请输入三角形的行数" + Chr(13) + Chr(10) + "3到17之间的整数"
H = Val(InputBox(TS$, "输入行数", 17, 5000, 1600))
Timer12.Interval = H * 100
Timer22.Interval = H * 100
N1 = 0: N2 = 0
Command3.Enabled = True
Command4.Enabled = True
End Sub
Private Sub Command2_Click()
Cls
Timer11.Enabled = Ture
Timer12.Enabled = Ture
End Sub

Private Sub Command3_Click()
Cls
Timer21.Enabled = Ture
Timer22.Enabled = Ture
End Sub

Private Sub Timer11_Timer()
N1 = N1 + 1
Print Tab(30 - N1); String$(2 * N1 - 1, "*")
End Sub

Private Sub Timer12_Timer()
Cls
Timer11.Enabled = False
Timer12.Enabled = False
End Sub

Private Sub Timer21_Timer()
N2 = N2 + 1
Print Tab(10 + N2); String$(H * 2 - (2 * N2 - 1), "*")
End Sub

Private Sub Timer22_Timer()
Cls
Timer21.Enabled = False
Timer22.Enabled = False
End Sub