Need Help, Calling Problem

[KohakuHyuuga]

I'm confused, i have a sample script and was supposed to add a circle that can change sizes. I got it working but when i click the button to change to the next call it shows up but my circle is still there also. My instructor said the key is the notVis command and it is hidden somewhere. I dont know how to do it.

this is my circle change code.

Code: Select all

Sub hsbBar_Change ()
' As user clicks the scroll bar,
' the width of the circle adjusts
  shpCircle.Width = hsbBar.Value

End Sub


this is the button to change the call:

Code: Select all

Sub cmdNext_Click ()
' Make all controls invisible, then
' make the next control in line visible
  Call notVis   ' Turn all controls invisible
  lblControl.Visible = True
  Select Case ctrl
    Case 1: Call labelShow
    Case 2: Call textShow
    Case 3: Call cmdShow
    Case 4: Call chkShow
    Case 5: Call optShow
    Case 6: Call frameShow
    Case 7: Call comboShow
    Case 8: Call comboSShow
    Case 9: Call listShow
    Case 10: ctrl = 0   ' Reset the control variable
             lblControl.Visible = False
  End Select
  ctrl = ctrl + 1
End Sub


And this is the code of my form:

Code: Select all

Sub Form_Load ()



' Initialize global variable and hide controls
  ctrl = 1
  Call notVis
  Call fillCombo
  Call fillSCombo
  Call fillList

' Set initial scroll bar values
  hsbBar.Value = 1800   ' Circle's default width
  vsbBar.Value = 1800   ' Bar's default height



End Sub


I have no clue and need to find out as soon as possible.

[sendtoanurag]

Can u send the code for notVis function