Code

Private Sub Form_Load()

For i = 1 to 4 Step 1

If happy = true and Knowit = true

While i = 3

With face.show

End With

Else

With hands.clap

End With

Wend

End If

Next i

End Sub

Edited; short code = win, dammit.