B4A Library VusikView

A wrap for this Github project. Posting the following:
1. B4A sample project
2. B4A library files
3. LibRes.zip - extract it and then copy folder LibRes (with its contents) to be on the same folder level as that of the B4A project's /Files and /Objects folders

You will need android-support-v4.jar in your additional library folder.
Note that the custom imageview is overlaid with a panel that holds the buttons
The images of the notes are in the /LibRes/drawable folder of the B4A project. Add your own notes and change the B4A code accordingly.

Sample code:

#Region  Project Attributes
    #ApplicationLabel: b4aVusikView
    #VersionCode: 1
    #VersionName:
    'SupportedOrientations possible values: unspecified, landscape or portrait.
    #SupportedOrientations: portrait
    #CanInstallToExternalStorage: False
#End Region

#AdditionalRes: ..\LibRes

#Region  Activity Attributes
    #FullScreen: False
    #IncludeTitle: True
#End Region

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.

End Sub

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.

    Private vv1 As VusikView
    Private p1 As Panel
    Private b1 As Button
    Private b2 As Button
    Private b3 As Button
    Private b4 As Button
End Sub

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    Activity.LoadLayout("main")

    Dim mynotes() As String = Array As String("note1", "note2", "note3", "note4")
    vv1.addNotes(mynotes)
    p1.Color = Colors.ARGB(150,0,100,0)




End Sub

Sub Activity_Resume



End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub


Sub b1_Click

    vv1.start
    vv1.startNotesFall

End Sub

Sub b2_Click

    vv1.stopNotesFall

End Sub

Sub b3_Click

    vv1.resumeNotesFall

End Sub

Sub b4_Click

    vv1.pauseNotesFall

End Sub