Sub App_Start
........
........
FormStart.Refresh
Sleep(500)
'flb.New1("FormMain",B4PObject(1)) 'per eliminare la caption dalla form
'flb.FullScreen(true)
FormMain.ForeLayer = true
Timer1.Enabled = true
DateFormat ("dddd - mmmm - yyyy")
TimeFormat ("HH:mm:ss")
FormMain.Show
FormMain.Refresh
End Sub
Sub Timer1_Tick
GetDataTime(12,280,390,670,670,cGray)
End Sub
Sub GetDataTime(size,x1,y1,x2,y2,color)
Dim giorno
Dim mom
giorno = Date(Now)
Select SubString(giorno,0, StrIndexOf(giorno,"-",0)-1)
Case "Monday"
giorno = "Lunedì"
Case "Tuesday"
giorno = "Martedì"
Case "Wednesday"
giorno = "Mercoledì"
Case "Thursday"
giorno = "Giovedì"
Case "Friday"
giorno = "Venerdì"
Case "Saturday"
giorno = "Sabato"
Case "Sunday"
giorno = "Domenica"
End Select
mom = DateD
If StrLength(mom) = 1 Then mom = "0" & mom
giorno = giorno & " " & mom
mom = DateM
If StrLength(mom) = 1 Then mom = "0" & mom
giorno = giorno & "/" & mom & "/" & DateY & " - " & Time(Now)
FormMain.FErase(x1,y1,x2,y2)
FormMain.FDrawString(giorno,size,x1,y1,x2,y2,color)
End Sub