visual basic 6

questa è la classe

codice:
Private Giorno_Start(7) As String * 2
Private Giorno_End(7) As String * 2
Private Nome_Dipendente As String * 25

Private Sub Class_Initialize()
  For i = 0 To 6
    Giorno_Start(i) = 0
    Giorno_End(i) = 0
  Next
  Nome_Dipendente = "Undefined"
End Sub

Public Sub Set_Giorno(Index As Integer, ByRef Inizio As String, ByRef Fine As String)
  Giorno_Start(Index) = Inizio
  Giorno_End(Index) = Fine
End Sub

Public Sub Get_Giorno(Index As Integer, Inizio As String, Fine As String)
   Inizio = Giorno_Start(Index)
   Fine = Giorno_End(Index)
End Sub

Public Function Get_TotOre() As Integer
  Dim temp As Integer
  For i = 0 To 6
    temp = temp + (CInt(Giorno_End(i)) - CInt(Giorno_Start(i)))
  Next
  Get_TotOre = temp
End Function

Public Property Let Nome(text As String)
  Nome_Dipendente = text
End Property

Public Property Get Nome() As String
   Nome = Nome_Dipendente
End Property