dim Tabs as integerPrivate Sub Command2_Click()If Tabs = 0 Then q1 = a + bElse q2 = a + bEnd IfEnd Sub
Private Sub TabStrip1_Click(Index As Integer)Tabs = IndexEnd Sub