Minimalize to Ctray+ start windows

case WM_SIZE:

         if (wParam==SIZE_MINIMIZED) {

               pdata->cbSize=88;

               pdata->hWnd=hwnd;

               pdata->uFlags=(NIF_MESSAGE | NIF_ICON | NIF_TIP);

               pdata->uID=12;

               pdata->uCallbackMessage=2000;

               pdata->hIcon=LoadIcon(NULL,IDI_APPLICATION);

               strcpy(pdata->szTip,tip);

               ShowWindow(hwnd,SW_HIDE);

               Shell_NotifyIcon(NIM_ADD,pdata);

         }

         break;

      case 2000:

         if (wParam==12 && lParam==WM_LBUTTONDOWN) {

         pdata->uFlags=NIF_ICON;

         pdata->uCallbackMessage=1000;

         ShowWindow(hwnd,SW_SHOWDEFAULT);

         Shell_NotifyIcon(NIM_DELETE,pdata);

         }

         break;

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

    End Sub

Dim startupReg As RegistryKey = Registry.CurrentUser
        Dim startupKey As RegistryKey = startupReg.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
        If CheckBox1.Checked = True Then
            startupKey.SetValue("KM Note", Application.ExecutablePath)
        Else
            startupKey.DeleteSubKey("KM Note", False)
        End If

    Dim startupReg As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.CurrentUser
    Dim startupKey As Microsoft.Win32.RegistryKey = startupReg.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim value() As String

        value = startupKey.GetValueNames()

        If value.Contains("KM Note") = True Then CheckBox1.Checked = True
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If CheckBox1.Checked = True Then
            startupKey.SetValue("KM Note", Application.ExecutablePath)
        Else
            startupKey.DeleteValue("KM Note")
        End If
    End Sub

Error   1   'Contains' is not a member of 'System.Array'.   F:\System_tray_menu\Form1.vb   217   12   System_tray_menu

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim value() As String

        value = startupKey.GetValueNames()

        For i As Integer = 0 To value.Count - 1

            If value(i) = "KM Note" Then
                checkbox1.checked = True
            End If
        Next
    End Sub

Imports System.Array