jfeinstein10 SlidingMenu library

Sub Globals
    Dim sm As SlidingMenu

    Dim clv1 As CustomListView   
End Sub

Sub Activity_Create(FirstTime As Boolean)
      sm.Initialize("sm")
      Dim offset As Int = 100dip
      sm.BehindOffset = offset
      sm.Mode = sm.BOTH
   
    clv1.Initialize(Me, "clv3")
   
      For i = 1 To 10
     clv1.AddTextItem("Action "&i, "a")
      Next

   sm.Menu.AddView(clv1.AsView, 10dip, 60dip, 100%x - offset - 20dip, 50dip)
End Sub

Sub GlobalsDim
sm As SlidingMenu
Dim clv1 As CustomListView
End Sub

Sub Activity_Create(FirstTime AsBoolean)
    smnew.Initialize("smnew")
    Dim offset As Int = 20%x
    smnew.BehindOffset = offset
    smnew.Mode = smnew.BOTH

    Private panelmenu As Panel
    panelmenu.Initialize("")
    smnew.menu.AddView(panelmenu, 0, 0, 100%x - offset, 100%y)

clv1.Initialize(Me, "clv3")
For i = 1To10
clv1.AddTextItem("Action "&i, "a")
Next

panelmenu.AddView(clv1.AsView, 0 , 0 , 100%x, 100%y)
end sub

Sub Activity_Create(FirstTime As Boolean)
     sm.Initialize("sm")
     Dim offset As Int = 100dip
     sm.BehindOffset = offset
     sm.Mode = sm.BOTH
   
   clv1.Initialize(Me, "clv3")
   sm.Menu.AddView(clv1.AsView, 10dip, 60dip, 100%x - offset - 20dip, 100%y)
     For i = 1 To 10
  clv1.AddTextItem("Action "&i, "a")
     Next
End Sub

Dim jo As JavaObject = sm
Dim degree As Float = 0.5
jo.RunMethod("setFadeDegree", Array(degree))
jo.RunMethod("setFadeEnabled", Array(true))