Visual Basic

Compile Error in File 'D:\TAT\VB6\apps\go bingo\Connection.bas', Line 121 : Sub or Function not defined

Function addrec(myform As Form, mydata As adodc)
On Error Resume Next
mydata.Recordset.AddNew
mycmd = cmds(myform, False)
addflag = True
End Function

Function SomeHandler(ByVal MyMessage As String)
   MsgBox(MyMessage)
   Return 0
End Function

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
   AddHandler Button1, AddressOf SomeHandler("Hello World!")
End Sub

If e.ItemIndex = Me.SelectedIndex Then

    Dim brush As New Drawing2D.LinearGradientBrush(e.Bounds, Color.DodgerBlue, _
        Color.White, Drawing2D.LinearGradientMode.Horizontal)
    Try
        e.Graphics.FillRectangle(brush, e.Bounds)
    Finally
        brush.Dispose()
    End Try

    e.Graphics.DrawImage(ImageList1.Images(e.ItemIndex), e.Item.Bounds.X + 2, e.Item.Bounds.Y, 130, 96)
    e.Item.Text = "                                  " & Trim(e.Item.Text)

Else

    e.Graphics.DrawImage(ImageList1.Images(e.ItemIndex), e.Item.Bounds.X + 2, e.Item.Bounds.Y, 130, 96)
    e.Item.ImageIndex = e.ItemIndex
    e.Item.Text = "
                         " & Trim(e.Item.Text)
End If

e.DrawText()