VB运行结束 提示 实时错误380

Private Sub Timer1_Timer()
V1.Value = V1.Value - 300
H1.Value = H1.Value - 300
End Sub
Private Sub H1_Change()
Text1.Width = H1.Value
End Sub
Private Sub V1_Change()
Text1.Height = V1.Value
End Sub

减到最后V1和H1成负的了，所以Text1.Width = H1.Value和Text1.Height = V1.Value出错了，建议改成
Private Sub Timer1_Timer()
if vi.value>300 then V1.Value = V1.Value - 300
if h1.value>300 then H1.Value = H1.Value - 300
if v1.value<=300 and h1.value<=300 then timer1.enable=false
End Sub

都越界了