
Private Sub CommandButton1_Click()
If TabStrip1.Value = 0 Then
TabStrip1.Value = 1
Else
TabStrip1.Value = 0
End If
End Sub |
Private Sub CommandButton1_Click()
MultiPage1.Value = 1
end sub |
Private Sub CommandButton1_Click()
With MultiPage1
If .Value = 0 Then
.Value = 1
Else
.Value = 0
End If
End With
End Sub |
Private Sub CommandButton1_Click()
With MultiPage1
.Value = IIf(.Value = 0, 1, 0)
End With
End Sub |
