whenever i try to run a second instance of my App i get this error

mycode is:
VB Code:
  1. Let App.Title = App.Title & " V" & App.Major & "." & App.Minor & "." & App.Revision
  2.     Let Caption = App.Title
  3.    
  4.     If App.PrevInstance Then
  5.         Call AppActivate(App.Title)
  6.         Call Unload(Me)
  7.         Exit Sub
  8.     End If