I can't seem to get this code working, i am trying to change the icon of a form

VB Code:
  1. Private Sub Form_Load()
  2. Dim TrayPath As String
  3. TrayPath = App.Path + "\ent.ico"
  4. End Sub

VB Code:
  1. frmTray.Icon = TrayPath

I also tried:
VB Code:
  1. frmTray.Icon = App.Path + "\ent.ico"

I dont know why but they both give error's.