chigonvh > 29-09-15, 10:07 AM
Private Sub Command0_Click()
If Command0.Caption = "More >>" Then
Command0.Caption = "Less <<"
Command11.Visible = True
Command12.Visible = True
Command13.Visible = True
Command14.Visible = True
Command15.Visible = True
Command16.Visible = True
End If
If Command0.Caption = "Less <<" Then
Command0.Caption = "More >>"
Command11.Visible = False
Command12.Visible = False
Command13.Visible = False
Command14.Visible = False
Command15.Visible = False
Command16.Visible = False
End If
End Sub