Hello!

I have problems with this code:
VB Code:
  1. Public Interface IPhone

  2.  
  3.     Enum CallState As Integer

  4.         Idle        

  5.         Dialing    

  6.         Ringing     

  7.         Speaking   

  8.     End Enum

  9.  
  10.     Enum CallResult As Integer

  11.         Normal      

  12.         NoCustomer  

  13.         NoRing      

  14.         [Error]       

  15.     End Enum

  16.  
  17.     Sub Dial(ByVal telephoneNo As String) 

  18.     Sub Hangup()

  19.     Property State() As CallState

  20.     Property LastResult() As CallResult

  21.  
  22. End Interface

  23.  
  24. Public Class MyPhone

  25.     Inherits Form1

  26.     Implements IPhone

  27.  
  28.     Dim linea As AxetTT37.AxetLine

  29.     Dim CallState As IPhone.CallState

  30.  
  31.     Private _state As IPhone.CallState = CallState.Idle

  32.  
  33.     Public Sub [New]()

  34.         linea = New AxetTT37.AxetLine

  35.         linea.DeviceName = "AVM ISDN TAPI Services (Cntrl 1)"    

  36.         linea.DeviceActive = True

  37.     End Sub

  38.  
  39.      ReadOnly Property State() As IPhone.CallState Implements IPhone.State

  40.       Get

  41.           Return _state

  42.    End Get

  43.    End Property

  44.  
  45.     Public Sub Dial(ByVal telephoneNo As String) Implements IPhone.Dial

  46.         linea.CallPhoneNumber = telephoneNo

  47.         linea.CallDial()

  48.         _state = CallState.Dialing

  49.     End Sub

  50.  
  51.     Public Sub Hangup() Implements IPhone.Hangup

  52.         If linea.CallActive Then    

  53.             linea.CallHangup()      

  54.             linea.CallActive = False

  55.             _state = CallState.Idle 

  56.         End If

  57.     End Sub

  58.  

  59. End Class

1. I get these errors:
In line: ReadOnly Property State() As IPhone.CallState Implements IPhone.State i got underlined IPhone.State() ->
IPhone.State in State()
Property: 'State' cannot implement 'State' because there is no matching property
on Interface 'Iphone'

- underlined IPhone when i define the class -> MyPhone must implement 'Propery State() As CallState' for interface Iphone

How can i fix that?


2. How can I access [New], Dial from class MyPhone in any other Form
(like Form1...)?


tnx for help