[RESOLVED] Error in Running a screen saver "Run-time error '6' Overflow"

[lord_cedrich]

Im running the program screen saver but i receiving this error its says Run-time error '6' Overflow i hope anyone could fix this thanks ...

Private Sub Form_Load()
Dim res
   'I made this array to translate name of day to Indonesia
   'language. You can change this array elemen to your
   'country language. Start from Sunday...
   aHari = Array("Sunday", "Monday", "Tuesday", "Wednesday", _
                "Thursday", "Friday", "Saturday")
   sHari = aHari(Abs(Weekday(Date) - 1))
   frmMain.Caption = "LOGIN PROGRAM Versi 1.0"
   frmMain.Timer1.Enabled = False
   Timer1.Enabled = True
   DoEvents
   Label1.Caption = "" & sHari & ", " _
                   & Format(Date, "mmmm dd yyyy")
   Label2.Caption = Format(Time, "hh:mm:ss")
   DoEvents
   App.HelpFile = ""
   res = SetWindowPos(frmScreenSaver.hWnd, _
                      HWND_TOPMOST, 0, 0, 0, 0, _
                      flags)
End Sub

But its only highlightened at

App.HelpFile = ""
res = SetWindowPos(frmScreenSaver.hWnd, _
                      HWND_TOPMOST, 0, 0, 0, 0, _
                      flags)