StartUp coding problem

[antitakumi]

Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
Dim regKey As New Object

Dim strKeyValueHere As String
Dim strMyExePathAndName As String
Const strKeyRootPath As String = "SOFTWARE\Microsoft\Windows\CurrentVersion\Run \"
Const HKEY_LOCAL_MACHINE As Long = &H80000002
strKeyValueHere = "MyKey"
strMyExePathAndName = App.Path & "\FYP.Exe"
If CheckBox1.Checked = True Then

If Not regKey.GetKeyValue(HKEY_LOCAL_MACHINE, strKeyRootPath, strKeyValueHere, strMyExePathAndName) Then
regKey.UpdateKey(HKEY_LOCAL_MACHINE, strKeyRootPath, strKeyValueHere, strMyExePathAndName)
End If
End If
End Sub
above is my own startup coding. however it got some error about the "Name App is not declared". Is there someone can help me solve the problem?

[balabaster]

strMyExePathAndName = App.Path & "\FYP.Exe"

Try:
strMyExePathAndName = Application.StartupPath & "\FYP.exe"

Or

strMyExePathAndName = System.Environment.CurrentDirectory & "\FYP.exe"

One or both of those should do the trick for you...