Public Sub Search_Load(sender As Object, e As EventArgs)
        lbl_Query.Text = ""
        Dim Button_String As String = " 0123456789QWERTYUIOPASDFGHJKLZXCVBNM"

        Dim Ctrl As Control
        Dim I As Integer = 0

        For Each Ctrl In Me.Controls

            If TypeOf Ctrl Is Button And Ctrl.Text.StartsWith("Button") Then
                I = CInt(Ctrl.Text.Substring(6))
                Buttons(I) = CType(Ctrl, Button)
                Buttons(I).Text = Button_String(I)
                AddHandler Buttons(I).Click, AddressOf Add_Char

Procedure Sum
Inputs: a, b
Output: c
    c = a + b
End Procedure

% This program finds edges in a grayscale image.

Picture = double(imread("Arm_Fracture.jpg")); % load the image as a double
if length(size(Picture)) == 2
   NewImage = uint8(filter(Picture));
else
   RedImage = filter(Picture(:,:,1));
   BlueImage = filter(Picture(:,:,2));
   GreenImage = filter(Picture(:,:,3));
   NewImage = scale(0.299 * RedImage + 0.587 * BlueImage + 0.114 * GreenImage);
   NewImage = uint8(NewImage);
end
% display it
imshow(NewImage)

function NewImage = filter(Pic2)
    x_filter = [ -1, 0, 1; -1, 0, 1; -1, 0, 1 ]; % the vertical edge filter

class A does
  def doStuff as "A" print end
end

class B is A
does
  def doStuff as
    me #:.super
    "B" print
  end
end

new{A} =a
new{B} =b

$a #:.doStuff
$b #:.doStuff