I am trying to have AutoShapes displayed, specifically a green up arrow and red down arrrow, in a UserForm based on certain conditions. Any suggestions. Here is what I tried;

Private Sub UserForm_Initialize()
TextBox1.Object = AutoShape27
End Sub

Does not work.

Please help.