Problem with TabStrip code - Error Type Mismatch

[imzhakmaya]

Hi ,


Can anyone pls help with the below codes "Error Type Mismatch"

Private Sub TabStrip1_Change()
   Dim i As Integer
   i = TabStrip1.SelectedItem.Index
   Select Case i
      Case 0
         ' First tab selected, change status to start.
         ListBox1.RowSource = StartStats
      Case 1
         ' Second tab selected, change status to end.
         ListBox1.RowSource = EndStats
      Case 2
         ' Third tab selected, change status to Form & Filed.
         ListBox2.RowSource = FiledStats
   End Select

End Sub

Attached workbook for reference.


Rgds
Imzhakmaya