Dim ButtonName(5) As String = Array As String("Stop", "Rewind", "Play", "FastForward", "Pause")
For I = 1 To 5
btnImage.Initialize("btn" & ButtonName(I - 1))
'...
Next
Sub btnStop_Click
'do stop stuff
End Sub
Sub btnRewind_Click
'do rewind stuff
End Sub
Sub btnPlay_Click
'do play stuff
End Sub
'etc