Excuse me for the stupid question, I am absolute beginner in VB. In Public Class frmMainForm code Line 56 with the string:
Dim objPerson As Person = GetPerson(PersonID)
And I have GetPerson underlined with the error message:
Name 'GetPerson' is not declared.
Can somebody describe me where that GetPerson should be declared?
Thank you in advance,

I am not sure what is causing your problem as I am a beginner myself but my code has got passed that bit and the first lines of the subroutine reads as follows;

Private Sub objPersonList_ShowPersonDetails(ByVal PersonID As Integer) Handles objPersonList.ShowPersonDetails
        objPersonalDetails = New PersonalDetails

        Dim objPerson As Person = GetPerson(PersonID)

Does yours read the same?

Thank you for that reply. Yes I am reading the same code with the one difference - GetPerson is underlined as not declared.
    Private Sub objPersonList_ShowPersonDetails(ByVal PersonID As Integer) Handles objPersonList.ShowPersonDetails
        objPersonalDetails = New PersonalDetails

        Dim objPerson As Person = GetPerson(PersonID)
        objPersonalDetails.Person = objPerson
        objPersonalDetails.AddMode = False

        Me.Text = "Personal Organizer - Viewing " & _
            objPersonalDetails.Person.DisplayName

        If pnlMain.Controls.Contains(objPersonList) Then
            pnlMain.Controls.Remove(objPersonList)
            objPersonList = Nothing
        End If
        pnlMain.Controls.Add(objPersonalDetails)
        objPersonalDetails.Dock = DockStyle.Fill

    End Sub

In the General Functions section do you have the GetPerson function set as a Private Function. I had this problem with another function I had entered wrongly. It should be a Public Function so that the other modules can make use of it.

Yes, in General functions section I have:
Imports System.Data
Module GeneralFunctions
    Public Function GetPerson(ByVal PersonID As Integer) As Person
        Dim GetPersonAdapter As New _PO_DataDataSetTableAdapters.PersonTableAdapter
        Dim GetPersonTable As New _PO_DataDataSet.PersonDataTable
        GetPersonAdapter.Fill(GetPersonTable)
        Dim PersonDataView As DataView = GetPersonTable.DefaultView
        PersonDataView.RowFilter = "ID = " + PersonID.ToString
        With PersonDataView
            If .Count > 0 Then
                Dim objPerson As New Person
                With .Item(0)
                    objPerson.ID = CType(.Item("ID"), Integer)
                    objPerson.FirstName = .Item("NameFirst").ToString.Trim
                    objPerson.LastName = .Item("NameLast").ToString.Trim
                    objPerson.HomePhone = .Item("PhoneHome").ToString.Trim
                    objPerson.CellPhone = .Item("PhoneCell").ToString.Trim
                    objPerson.Address = .Item("Address").ToString.Trim
                    objPerson.BirthDate = CType(.Item("DateOfBirth"), Date)
                    objPerson.EmailAddress = .Item("EmailAddress").ToString.Trim
                    objPerson.Favorites = .Item("Favorites").ToString.Trim
                    objPerson.GiftCategories = CType(.Item("GiftCategories"), Integer)
                    objPerson.Notes = .Item("Notes").ToString.Trim
                End With
                Return objPerson
            Else
                Return Nothing
            End If
        End With
    End Function
End Module

The problem is solved!
Thank you for the promt of the solution!
I have no GeneralFunctions.vb module in Solution Explorer by mistake of my. After the module GeneralFunctions.vb had been attached to project the error message dissapeared. Thank you one more time!
Have a nice coding.