Declaration expected Vb.net

Public Class FINDEMPPINEventArgs
    Inherits System.EventArgs
    ' Dim mode As modExtensions = New modExtensions()
    'Dim cv As cVerifone = New cVerifone()
    Public Property cMx900Series1 As Object = New cMx900Series()
    Public Property cVerifone1 As Object = New cVerifone()
End Class
Public Class Sender
    Public Event Start(ByVal sender As Object, ByVal e As FINDEMPPINEventArgs)
    Protected Overridable Sub OnStart(ByVal e As FINDEMPPINEventArgs)
        RaiseEvent Start(Me, e)
    End Sub
    Dim cVerifone1 = New cVerifone()
     cVerifone1.Send("Pin ENTERED", "<STX>XEVT<FS>0<FS>ControlID<FS>ON_KEYPRESS<FS>1<ETX>")<---cVerifone1 has the error
  


End Class
Public Class Receiver
    Friend WithEvents MySender As Sender
    Private Sub MySender_Start(ByVal sender As Object, _
          ByVal e As FINDEMPPINEventArgs) Handles MySender.Start
        getenteredPin()
    End Sub
    Private Sub getenteredPin()
        'cMx900Series = New cMx900Series()
        cMx900Series1.ProcessCommand()
        EMPPINENTERED = cMx900Series1.EMPPINENTERED.ToString()
        MessageBox.Show(EMPPINENTERED.ToString())
    End Sub
    Private Function cVerifone1() As Object

    End Function
    Private Function cMx900Series1() As Object
    End Function

End Class

Select all Open in new window