Can anyone explain how text gets smaller and smaller each time you toggle through a texbox?

[tedb13]

I would also like to know if there is anyone out there who knows how to toggle through the textboxes using Tab and Shift+Tab.

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    'If KeyCode = vbKeyTab Then TextBox2.Activate
    If KeyCode = vbKeyUp Then TextBox3.Activate
    If KeyCode = vbKeyDown Then TextBox2.Activate
End Sub

Private Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    'If KeyCode = vbKeyTab Then TextBox3.Activate
    If KeyCode = vbKeyUp Then TextBox1.Activate
    If KeyCode = vbKeyDown Then TextBox3.Activate
End Sub

Private Sub TextBox3_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    'If KeyCode = vbKeyTab Then TextBox1.Activate
    If KeyCode = vbKeyUp Then TextBox2.Activate
    If KeyCode = vbKeyDown Then TextBox1.Activate
End Sub

It's always better to ask stupid questions; stupid questions have been known to reduce the frequency of stupid mistakes. )

 

[HughLerwill]

Set the TabIndex property for each Control in the required order and it will just work, without any further code.

 

[tedb13]

unfortunately this is not a userform or I would have done just that. I am using activex control textbox. I need to code the tab order. Even if I could set the Tab order, the problem in my querry is the shrinking of the text each time I toggle through them. Thanks all the same.

It's always better to ask stupid questions; stupid questions have been known to reduce the frequency of stupid mistakes. )

 

[combo]

You can:

If KeyCode = vbKeyTab Then
    If Shift And 1 Then
        TextBox3.Activate
    Else
        TextBox2.Activate
    End If
End If

See the help for KeyDown, KeyUp events. I noticed that fmShiftMask, fmCtrlMask, and fmAltMask constants listed in the help file do not exist, so one needs to use values (1, 2 and 4 respectively) instead.

combo