Hello, it's my first time making keygens and I'm almost finished with it but I'm stuck with a function that I want done. I have the keygen showing a progress bar once i hit generate but I would like it to show the key after the progress bar is finished. I have no idea how to get this to show. I tried throwing this in: Code: [B]If ProgressBar1.Value = 100 Then[/B] Dim Key As Integer Key = Int(Rnd() * 3) Select Case Key after the timer for the progress bar, but that now only makes the progress bar show without a key. Can anyone help me what I would need to insert for this to work properly? I know I don't really need the progress bar for such a keygen, but it would be good for me to know in the future.