[VB][Resolved] Reference to non-shared member requires an object reference

Error message:

Reference to non-shared member requires an object reference

frmSearch.vb

Public Function CheckDate(ByVal newValue As String) As Boolean

  Dim rtnVal As Boolean = True

  Return rtnVal

End Function

main.vb

if frmSearch.CheckDate(Me.photodateTextBox.Text) = False

  MsgBox("Date format incorrect")

End

Correction : Add the keyword Shared

frmSearch.vb

Public Shared Function CheckDate(ByVal newValue As String) As Boolean

  Dim rtnVal As Boolean = True

  Return rtnVal

End Function 

Reference:

https://stackoverflow.com/questions/13462479/reference-to-a-non-shared-member-requires-an-object-reference-occurs-when-callin