I want to use form with label instead of messagebox in this code
Code:Private Sub Form_Load() On Error Resume Next SaveSetting "hh", "StartupForm", "TimesRun", GetSetting("hh", "StartupForm", "TimesRun", 0) + 1 Timesrun = GetSetting("hh", "StartupForm", "TimesRun") MsgBox "You have Used this programme " & Timesrun & " times" End Sub




Reply With Quote