Report Control will disable the tab key feature

Dim m_bSkipFocusEvent As Boolean
 
Private Sub Form_Initialize()
        m_bSkipFocusEvent = False
End Sub
 
Private Sub Text1_GotFocus(Index As Integer)
 
    If m_bSkipFocusEvent Then
        Exit Sub
    End If
    
    If Index = 0 Then
        m_bSkipFocusEvent = True
        
        ReportControl1.Visible = True
        
        ReportControl1.SetFocus
        DoEvents
        Text1(0).SetFocus
        DoEvents
        
        m_bSkipFocusEvent = False
    End If
End Sub