You need to put an Exit Sub before the second go to label. But, you should just lose goTo.
VB Code:
  1. Private Sub pro_Click()

  2.     If pro.Caption = "Hide Progress Bar" Then

  3.         ProgressBar1.Visible = False

  4.         pro.Caption = "Show Progress Bar"

  5.     ElseIf pro.Caption = "Show Progress Bar" Then

  6.         ProgressBar1.Visible = True

  7.         pro.Caption = "Hide Progress Bar"

  8.     End If

  9. End Sub