Hi there,

Due to me working on an application wich only has ONE Form with SSTabs it get rather crowded with the code. Now I would like to branch out with some of that SSTab code to one of my modules. Maybe somebody could help ???

VB Code:
  1. Private Sub SSTab1_Click(PreviousTab As Integer)

  2. '---

  3.     Select Case SSTab1.Tab

  4.         Case 0: '--- TAB ONE (0).

  5.             code ............

  6.             code ............

  7.             [COLOR=Red]This would be the section I like to Call from a module ???[/COLOR]

  8.             SSTab1.TabEnabled(1) = True

  9.             SSTab1.TabEnabled(2) = False

  10.             SSTab1.TabEnabled(4) = False

  11.             SSTab1.TabEnabled(6) = False

  12.             SSTab1.TabEnabled(7) = False

  13.             [COLOR=Red]...................[/COLOR]

  14.             code ............

  15.             code ............

  16.  
  17.         Case 1: '--- TAB TWO (1).

  18.             code ............

  19.             code ............

  20.             [COLOR=Red]This would be the section I like to Call from a module ???[/COLOR]

  21.             SSTab1.TabEnabled(0) = True 

  22.             SSTab1.TabEnabled(2) = True 

  23.             SSTab1.TabEnabled(3) = True 

  24.             SSTab1.TabEnabled(4) = False 

  25.             SSTab1.TabEnabled(5) = True 

  26.             SSTab1.TabEnabled(6) = False

  27.             SSTab1.TabEnabled(7) = False

  28.             [COLOR=Red]...................[/COLOR]

  29.             code ............

  30.             code ............

  31.             etc. etc.

  32.         End Select

Thanks aktell