Tästä ei nyt varmaan ole kauheasti apua. Asettaa arvot compTime, progPath ja progInfo tai jotain sinne päin.
Funktiontekemislistaus
Private Sub Form_Load() compTime = Date & ", " & Time 'compTime ilmoittaa tietokoneen ajan muodossa 11.11.2003, 12:00:01 progPath = App.Path 'progName ilmoittaa ohjelman sijainnin. progInfo = App.EXEName & " v" & App.Major & "." & App.Minor & "." & App.Revision 'progInfo ilmoittaa ohjelmalle asettamasi nimen ja versionumeron. End Sub
Listaus joka laittaa arvot labeleihin, ei tarvitse käyttää.
timeLabel.Caption = "Aika ja päiväys: " & compTime pathLabel.Caption = "Ohjelman hakemisto: " & progPath infoLabel.Caption = progInfo
mitäs pidätte?
Aihe on jo aika vanha, joten et voi enää vastata siihen.