You need to use LoadPicture, the ampersand and the backslash:
VB Code:
  1. frmMain.Icon = LoadPicture(App.Path & "\unlock16.ico")