programacion vb y carta gantt

Accountability o rendición de cuentas, 
El origen del término rendición de cuentas proviene del latín
Accomptare: a cuenta
Computare :que es calcular
putare: que quiere decir que contar.
Elconcepto aparece en los años 60 en Estados Unidos y en los 70 llega a Europa, pero ha sido más desarrollado por la cultura inglesa durante los últimos años.
Es un concepto ético que nace en la culturaanglosajona, y una de las primeras organizaciones preocupadas por este tema fue el Institute of Social and Ethical Accountability, una organización internacional sin fines de lucro que desde 1996busca promover la rendición de cuentas.
8 tipos de rendición de cuentas:
Moral, administrativo, político, de gestión, comercialización, jurídico y judicial, circunscripción relación y profesional.Buscar
Private Sub Cmdmax_Click()
'valor pequeño a la maxima
tempmaxmax = 0
'valor grande a la minima
tempminmax = 100
'comprar con los datosleidos desde el archivo
'abrir archivo
Open App.Path & "\enero.txt" For Input As #1
While Not EOF(1)
Input #1, dia, tempminima, tempmaxima
'comparar
If tempmaxima > tempmaxmax Thentempmaxmax = tempmaxima
diamaxmax = dia
End If
If tempmaxima < tempminmax Then
tempminmax = tempmaxima
diaminmax = dia
End If
Wend
Close #1
MsgBox "Temperatura masalta de las maxima: " & tempmaxmax & _
" Dia: " & diamaxmax & vbCrLf & _
"Temperatura mas baja de las maxima: " & tempminmax & _
" Dia: " & diaminmax

End Sub















PublicFunction tabular(n As Integer) As String
Dim espacios As String 'string de espacios que arme
Dim i As Integer
espacios = ""
For i = 1 To n
espacios = espacios & " "
Next i'asignar al nombre de la funcion el valor calculado
tabular = espacios
End Function
Public Sub salir()
Dim r As Integer
r = MsgBox("Seguro", vbYesNo, "Confirmar")
If r = 6 Then
End
End...