Development problem with some DirectX7 VB code

Code:

Private Sub Form_Load()
    InitDirectDraw
    
    Randomize GetTickCount
    
    lLeft = (ddsd.lWidth - TextWidth("Welcome to DirectX!")) / 2
    lTop = ddsd.lHeight / 2
    
    primary.BltColorFill rPrim, RGB(Rnd * 30, Rnd * 30, Rnd * 30)
    
    Do While True
        primary.SetForeColor RGB(Rnd * 255 + 1, Rnd * 255 + 1, Rnd * 255 + 1)
        primary.DrawText lLeft, lTop, "Welcome to DirectX!", False
        DoEvents
    Loop
End Sub

the screensize and color depth is pre defined in declared variables, when it runs, it resizes to 640x480x16 and showl my form and says a variable in the primary.SetForeColor code line is undefined.. I'm a bit angry by this, and if anyone coupd lend a n00b VBer a hand

 

If no one sees any problems, could someone at least say so?!?!?!?