set wshshell error

[123jan456]

ik heb een progje:

Public Class Form1
    Dim wshshell
    Dim wscript
    set wshshell = wscript.CreateObject("WScript.Shell")

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        For a As Integer = 0 To 9
            For b As Integer = 0 To 9
                For c As Integer = 0 To 9
                    For d As Integer = 0 To 9
                        wshshell.SendKeys("& a & b & c & d & vbcrlf")
                        ProgressBar1.Value = ProgressBar1.Value + 1
                    Next
                Next
            Next
        Next


    End Sub
End Class

maar als ik het wil uitvoeren geeft hij een error:

syntax error. line 4 column 5

weten jullie wat er aan de hand is ???

 

[Solaris]

Geen idee maar de foutmelding lijkt te willen zeggen dat het SET commando niet (h)erkend wordt...