Rotate multipatch object - vba - arcscene 10

RustamTimerbaev

Hello. I need rotate selected object in multipatch layer. I found one example, but it does not suit me.

  Private Sub CommandButton1_Click()
  Dim pUID As New UID
  Dim pCmdItem As ICommandItem
  pUID.Value = "esriEditor.StartEditingCommand"
  Set pCmdItem = Application.Document.CommandBars.Find(pUID)
  pCmdItem.Execute
  pUID.Value = "esri3DAnalystUI.Rotate3DCommand"
  Set pCmdItem = Application.Document.CommandBars.Find(pUID)
  pCmdItem.Execute
  End Sub

After clicking to Button1 opens window and wait for entered value.
I do not need this screen. After clicking i need rotate object to, for example, 5 degree (this value will be constant).

001.jpg

nexradAustin2.png

OFFICIAL LAKE COUNTY SEAL.png