Hello, maybe I'm in the clouds.... but I don't understand why this cycle: ********** Public Sub Button1_Click() Dim j As Byte For j = 0 To 255 Print j Next End ********** runs "ad infinitum" ! Regards vuott