Wish: Polymorphism or likewise.

Sub CalcOne(v As Int) As Int
   Return v * 2
End Sub

Sub CalcTwo(v As Int) As Int
   Return v * 4
End Sub

Sub PutValue(v As Int) As Int
   rList.add(v)
   Return v
End Sub

Sub GetValue(v As Int) As Int
   Return rList.Get(v)
End Sub

Sub MinValue(a As Int, b As Int) As Int
   If a < b Then Return a Else Return b
End Sub

Sub MaxValue(a As Int, b As Int) As Int
   If a > b Then Return a Else Return b
End Sub

Sub RunData(GoValue As (e.g) Sub, Statement As Sub)
   '      
   '   Here i run the Data.   
   '
End Sub

Sub Init
   RunData(CalcOne, MinValue)
   RunData(PutValue, MaxValue)
End Sub

Type MyType ( _
       Name As String,   _
       Items(10) As Int, _
       Init as String, _
       GetValue as String, _
       ...
       )

Sub Test1S(msg As String)
   Msgbox(msg,"Test1")
End Sub

Sub Test2S(msg As String)
   Msgbox(msg,"Test2")
End Sub

Sub CallString(subname As String, param As String)
   Dim Obj1 As Reflector
   subname = "_" & subname.ToLowerCase 
   Obj1.RunStaticMethod("your.package.name.main", subname, Array As Object(param), Array As String("java.lang.String"))
End Sub

Sub Btn1_Click
   CallString("Test1S", "Calling")
   CallString("Test2S", "Calling")
End Sub