Oke, let me post the entire code. I'm getting an error in expression on line 1..
Code:

Break On
$System = CreateObject("Kixtart.System")


;KD START

$Form = $System.Form()
$Form.BackColor = 212,208,200
$Form.FontSize = 8,25
$Form.Height = 585
$Form.Left = 90
$Form.Text = "Kandidaten PC's"
$Form.Top = 12
$Form.Width = 354
$Test = $Form.Controls.Button()
$Test.FlatStyle = 3
$Test.FontSize = 8,25
$Test.Height = 24
$Test.Left = 0
$Test.Text = " Kamer 1 (203)"
$Test.Top = 105
$Test.Width = 95
$Test.OnClick = 'SHELL "\\nlmoon\apps\KandPC\NL-KDKF7PK-Kamer1.bat"'
$Label1 = $Form.Controls.Label()
$Label1.BackColor = 212,208,200
$Label1.FontBold = "True"
$Label1.FontSize = 12,25
$Label1.Height = 36
$Label1.Left = 30
$Label1.Text = "Klik op knop om PC op te starten"
$Label1.Top = 15
$Label1.Width = 280
$Button2 = $Form.Controls.Button()
$Button2.FlatStyle = 3
$Button2.FontSize = 8,25
$Button2.Height = 24
$Button2.Left = 0
$Button2.Text = "Kamer 2 (204)"
$Button2.Top = 150
$Button2.Width = 94
$Button2.OnClick = 'SHELL "\\nlmoon\apps\KandPC\NL-TKDBYB1L-Kamer2.bat"'
$Button3 = $Form.Controls.Button()
$Button3.FontSize = 8,25
$Button3.Height = 23
$Button3.Left = 165
$Button3.Text = "TestPC-Aan"
$Button3.Top = 150
$Button3.Width = 75
$Button3.OnClick = 'SHELL "\\nlmoon\apps\KandPC\NL-KDKF7PM.bat"'
$Button4 = $Form.Controls.Button()
$Button4.FlatStyle = 3
$Button4.FontSize = 8,25
$Button4.Height = 24
$Button4.Left = 0
$Button4.Text = "Kamer 3 (205)"
$Button4.Top = 195
$Button4.Width = 95
$Button4.OnClick = 'SHELL "\\nlmoon\apps\KandPC\NL-TKDBYA7P-Kamer3.bat"'
$Button5 = $Form.Controls.Button()
$Button5.FlatStyle = 3
$Button5.FontSize = 8,25
$Button5.Height = 24
$Button5.Left = 0
$Button5.Text = "Kamer 4 (206)"
$Button5.Top = 240
$Button5.Width = 95
$Button5.OnClick = 'SHELL "\\nlmoon\apps\KandPC\NL-TKDBYA8W-Kamer4.bat"'
$Button6 = $Form.Controls.Button()
$Button6.FlatStyle = 3
$Button6.FontSize = 8,25
$Button6.Height = 24
$Button6.Left = 0
$Button6.Text = "Kamer 5 (207)"
$Button6.Top = 285
$Button6.Width = 95
$Button6.OnClick = 'SHELL "\\nlmoon\apps\KandPC\NL-KDKK0HY-Kamer5.bat"'
$Button7 = $Form.Controls.Button()
$Button7.FontSize = 8,25
$Button7.Height = 23
$Button7.Left = 0
$Button7.Text = "Kamer 6 (208)"
$Button7.Top = 330
$Button7.Width = 95
$Button7.OnClick = 'SHELL "\\nlmoon\apps\KandPC\NL-TKDBYB1K-Kamer6.bat"'
$Button8 = $Form.Controls.Button()
$Button8.FlatStyle = 3
$Button8.FontSize = 8,25
$Button8.Height = 24
$Button8.Left = 0
$Button8.Text = "Kamer 7 (209)"
$Button8.Top = 375
$Button8.Width = 95
$Button8.OnClick = 'SHELL "\\nlmoon\apps\KandPC\NL-TKDBYA7W-Kamer7.bat"'
$Button9 = $Form.Controls.Button()
$Button9.FlatStyle = 3
$Button9.FontSize = 8,25
$Button9.Height = 23
$Button9.Left = 0
$Button9.Text = "Kamer 8 (210)"
$Button9.Top = 420
$Button9.Width = 95
$Button9.OnClick = 'SHELL "\\nlmoon\apps\KandPC\NL-TKDBYB1X-Kamer8.bat"'
$Button10 = $Form.Controls.Button()
$Button10.FlatStyle = 3
$Button10.FontSize = 8,25
$Button10.Height = 24
$Button10.Left = 0
$Button10.Text = "Kamer 9 (211)"
$Button10.Top = 465
$Button10.Width = 95
$Button10.OnClick = 'SHELL "\\nlmoon\apps\KandPC\NL-KGX150-Kamer9.bat"'
$Button12 = $Form.Controls.Button()
$Button12.FontSize = 8,25
$Button12.Height = 24
$Button12.Left = 165
$Button12.Text = "TestPC-overname"
$Button12.Top = 195
$Button12.Width = 111
$Button12.OnClick = 'SHELL "C:\Program Files\RealVNC\vncviewer.exe NL-KDKF7PM"'

$CheckPCk1 = $Form.Controls.CheckBox()
$CheckPCk1.BackColor = 212,208,200
$CheckPCk1.CheckAlign = 16
$CheckPCk1.CheckState = 0
$CheckPCk1.FontSize = 8,25
$CheckPCk1.Height = 21
$CheckPCk1.Left = 105
$CheckPCk1.Text = "testpc"
$CheckPCk1.Top = 105
$CheckPCk1.Width = 50

$CheckPCk2 = $Form.Controls.CheckBox()
$CheckPCk2.BackColor = 212,208,200
$CheckPCk2.CheckAlign = 16
$CheckPCk2.CheckState = 0
$CheckPCk2.FontSize = 8,25
$CheckPCk2.Height = 21
$CheckPCk2.Left = 105
$CheckPCk2.Text = ""
$CheckPCk2.Top = 150
$CheckPCk2.Width = 20


;KD END

$Op=SetOption('NoVarsInStrings','On')

DIM $Computers
$Computers = 'NL-KDKF7PM','NL-TKDBYB1L'
$Timer = $Form.Timer(5000)
For $count=0 to ubound($Computers)
$Timer.onTimer = $Timer.onTimer +
'If Ping(' + $Computers[$count] + ')
$CheckPCk' + ($count+1) + '.Checked = "True"
Else
$CheckPCk' + ($count+1) + '.Checked = "False"
EndIf'
Next

Function Ping($PC)
DIM $PC
shell '%Comspec% /C ping -n 1 ' + $PC + ' | find /C "TTL=" > nul'
$Ping = NOT @ERROR
EndFunction

$Form.Show
While $Form.Visible
$=Execute($Form.DoEvents())
Loop
Exit 1