I need a button that when I hold it down it will cycle through the loop repeatetly until I release it.

Code:
Private Sub cmdMovePanelLeft()
  '
  ' <--- what to add here
  '
 picPanel.Left = picPanel.Left + 1
  '
  ' <-- what to add here
  '
End Sub