 changed caption"
      End If
   Case 10
      ' width
      Select Case barMain.ButtonWidth
      Case 64
         barMain.ButtonWidth = 96
      Case 96
         barMain.ButtonWidth = 128
      Case 128
         barMain.ButtonWidth = 256
      Case 256
         barMain.ButtonWidth = 64
      End Select
      
   End Select
End Sub

Private Sub picBanner_Resize()
On Error Resume Next
   lblSelected.Move _
      lblSelected.left, _
      (picBanner.ScaleHeight - lblSelected.Height) \ 2, _
      picBanner.S