è possibile accorciare tutte queste sub?
<CODE>
Sub Textbox1aora1_GotFocus
SIP(True)
Panel1.Top=0
End Sub
Sub Textbox2aora1_GotFocus
SIP(True)
Panel1.Top=-40
End Sub
Sub Textbox3aora1_GotFocus
SIP(True)
Panel1.Top=-80
End Sub
Sub Textbox4aora1_GotFocus
SIP(True)
Panel1.Top=-120
End Sub
Sub Textbox5aora1_GotFocus
SIP(True)
Panel1.Top=-160
End Sub
Sub Textbox6aora1_GotFocus
SIP(True)
Panel1.Top=-200
End Sub
Sub Textbox1aora2_GotFocus
SIP(True)
Panel2.Top=0
End Sub
Sub Textbox2aora2_GotFocus
SIP(True)
Panel2.Top=-40
End Sub
Sub Textbox3aora2_GotFocus
SIP(True)
Panel2.Top=-80
End Sub
Sub Textbox4aora2_GotFocus
SIP(True)
Panel2.Top=-120
End Sub
Sub Textbox5aora2_GotFocus
SIP(True)
Panel2.Top=-160
End Sub
Sub Textbox6aora2_GotFocus
SIP(True)
Panel2.Top=-200
End Sub
Sub Textbox1aora3_GotFocus
SIP(True)
Panel3.Top=0
End Sub
Sub Textbox2aora3_GotFocus
SIP(True)
Panel3.Top=-40
End Sub
Sub Textbox3aora3_GotFocus
SIP(True)
Panel3.Top=-80
End Sub
Sub Textbox4aora3_GotFocus
SIP(True)
Panel3.Top=-120
End Sub
Sub Textbox5aora3_GotFocus
SIP(True)
Panel3.Top=-160
End Sub
Sub Textbox6aora3_GotFocus
SIP(True)
Panel3.Top=-200
End Sub
Sub Textbox1aora4_GotFocus
SIP(True)
Panel4.Top=0
End Sub
Sub Textbox2aora4_GotFocus
SIP(True)
Panel4.Top=-40
End Sub
Sub Textbox3aora4_GotFocus
SIP(True)
Panel4.Top=-80
End Sub
Sub Textbox4aora4_GotFocus
SIP(True)
Panel4.Top=-120
End Sub
Sub Textbox5aora4_GotFocus
SIP(True)
Panel4.Top=-160
End Sub
Sub Textbox6aora4_GotFocus
SIP(True)
Panel4.Top=-200
End Sub
Sub Textbox1aora5_GotFocus
SIP(True)
Panel5.Top=0
End Sub
Sub Textbox2aora5_GotFocus
SIP(True)
Panel5.Top=-40
End Sub
Sub Textbox3aora5_GotFocus
SIP(True)
Panel5.Top=-80
End Sub
Sub Textbox4aora5_GotFocus
SIP(True)
Panel5.Top=-120
End Sub
Sub Textbox5aora5_GotFocus
SIP(True)
Panel5.Top=-160
End Sub
Sub Textbox6aora5_GotFocus
SIP(True)
Panel5.Top=-200
End Sub
Sub Textbox1aora6_GotFocus
SIP(True)
Panel6.Top=0
End Sub
Sub Textbox2aora6_GotFocus
SIP(True)
Panel6.Top=-40
End Sub
Sub Textbox3aora6_GotFocus
SIP(True)
Panel6.Top=-80
End Sub
Sub Textbox4aora6_GotFocus
SIP(True)
Panel6.Top=-120
End Sub
Sub Textbox5aora6_GotFocus
SIP(True)
Panel6.Top=-160
End Sub
Sub Textbox6aora6_GotFocus
SIP(True)
Panel6.Top=-200
End Sub
Sub Textbox1aora7_GotFocus
SIP(True)
Panel7.Top=0
End Sub
Sub Textbox2aora7_GotFocus
SIP(True)
Panel7.Top=-40
End Sub
Sub Textbox3aora7_GotFocus
SIP(True)
Panel7.Top=-80
End Sub
Sub Textbox4aora7_GotFocus
SIP(True)
Panel7.Top=-120
End Sub
Sub Textbox5aora7_GotFocus
SIP(True)
Panel7.Top=-160
End Sub
Sub Textbox6aora7_GotFocus
SIP(True)
Panel7.Top=-200
End Sub
</CODE>
<CODE>
Sub Textbox1aora1_GotFocus
SIP(True)
Panel1.Top=0
End Sub
Sub Textbox2aora1_GotFocus
SIP(True)
Panel1.Top=-40
End Sub
Sub Textbox3aora1_GotFocus
SIP(True)
Panel1.Top=-80
End Sub
Sub Textbox4aora1_GotFocus
SIP(True)
Panel1.Top=-120
End Sub
Sub Textbox5aora1_GotFocus
SIP(True)
Panel1.Top=-160
End Sub
Sub Textbox6aora1_GotFocus
SIP(True)
Panel1.Top=-200
End Sub
Sub Textbox1aora2_GotFocus
SIP(True)
Panel2.Top=0
End Sub
Sub Textbox2aora2_GotFocus
SIP(True)
Panel2.Top=-40
End Sub
Sub Textbox3aora2_GotFocus
SIP(True)
Panel2.Top=-80
End Sub
Sub Textbox4aora2_GotFocus
SIP(True)
Panel2.Top=-120
End Sub
Sub Textbox5aora2_GotFocus
SIP(True)
Panel2.Top=-160
End Sub
Sub Textbox6aora2_GotFocus
SIP(True)
Panel2.Top=-200
End Sub
Sub Textbox1aora3_GotFocus
SIP(True)
Panel3.Top=0
End Sub
Sub Textbox2aora3_GotFocus
SIP(True)
Panel3.Top=-40
End Sub
Sub Textbox3aora3_GotFocus
SIP(True)
Panel3.Top=-80
End Sub
Sub Textbox4aora3_GotFocus
SIP(True)
Panel3.Top=-120
End Sub
Sub Textbox5aora3_GotFocus
SIP(True)
Panel3.Top=-160
End Sub
Sub Textbox6aora3_GotFocus
SIP(True)
Panel3.Top=-200
End Sub
Sub Textbox1aora4_GotFocus
SIP(True)
Panel4.Top=0
End Sub
Sub Textbox2aora4_GotFocus
SIP(True)
Panel4.Top=-40
End Sub
Sub Textbox3aora4_GotFocus
SIP(True)
Panel4.Top=-80
End Sub
Sub Textbox4aora4_GotFocus
SIP(True)
Panel4.Top=-120
End Sub
Sub Textbox5aora4_GotFocus
SIP(True)
Panel4.Top=-160
End Sub
Sub Textbox6aora4_GotFocus
SIP(True)
Panel4.Top=-200
End Sub
Sub Textbox1aora5_GotFocus
SIP(True)
Panel5.Top=0
End Sub
Sub Textbox2aora5_GotFocus
SIP(True)
Panel5.Top=-40
End Sub
Sub Textbox3aora5_GotFocus
SIP(True)
Panel5.Top=-80
End Sub
Sub Textbox4aora5_GotFocus
SIP(True)
Panel5.Top=-120
End Sub
Sub Textbox5aora5_GotFocus
SIP(True)
Panel5.Top=-160
End Sub
Sub Textbox6aora5_GotFocus
SIP(True)
Panel5.Top=-200
End Sub
Sub Textbox1aora6_GotFocus
SIP(True)
Panel6.Top=0
End Sub
Sub Textbox2aora6_GotFocus
SIP(True)
Panel6.Top=-40
End Sub
Sub Textbox3aora6_GotFocus
SIP(True)
Panel6.Top=-80
End Sub
Sub Textbox4aora6_GotFocus
SIP(True)
Panel6.Top=-120
End Sub
Sub Textbox5aora6_GotFocus
SIP(True)
Panel6.Top=-160
End Sub
Sub Textbox6aora6_GotFocus
SIP(True)
Panel6.Top=-200
End Sub
Sub Textbox1aora7_GotFocus
SIP(True)
Panel7.Top=0
End Sub
Sub Textbox2aora7_GotFocus
SIP(True)
Panel7.Top=-40
End Sub
Sub Textbox3aora7_GotFocus
SIP(True)
Panel7.Top=-80
End Sub
Sub Textbox4aora7_GotFocus
SIP(True)
Panel7.Top=-120
End Sub
Sub Textbox5aora7_GotFocus
SIP(True)
Panel7.Top=-160
End Sub
Sub Textbox6aora7_GotFocus
SIP(True)
Panel7.Top=-200
End Sub
</CODE>