Formun yüklendiğinde olayında tuş izlemeyi aktif edelim:

Me.KeyPreview = True

Sonrasında formun Tuşa Basılırken olayı şu şekilde olacak:

  Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)



 

  If seciliTab = tablar.Pages.Count Then

    seciliTab = 0

  End If

  

  If KeyCode = vbKeyF10 Then

   

   tablar.Pages.Item(seciliTab).SetFocus

   seciliTab = seciliTab + 1

  

  End If

 

End Sub

seciliTab değişkeni bizim o anda hangi indekse sahip Tab içinde olduğumuz sakladığımız bir değişken. Her F10 tuşuna bastığımızda değerini bir arttırıyoruz ki sonraki indekse sahip Tab'a geçiş yapılsın. Pages.Count ile toplam Tab sayfasını öğreniyoruz eğer son Tab'da isek ilk Tab'a geçmek için değerini 0 yapıyoruz.

seciliTab değişkenini tüm formda kullanabilmek için Modül bazında Byte değişken türünde tanımlıyoruz:

Dim seciliTab As Byte