Hi Andy,
It works fine for me here using the latest v7.0.1.3 maintenance release, which we posted at the client area, and the code below. Can you please test if it works for you?
Code: Select all
Private Sub Command1_Click()
TChart1.Aspect.OpenGL.Active = Not TChart1.Aspect.OpenGL.Active
End Sub
Private Sub Form_Load()
With TChart1.Series(0).asSurface
.AddXYZ 0, Rnd, 0, "", vbRed
.AddXYZ 0, Rnd, 1, "", vbBlue
.AddXYZ 0, Rnd, 2, "", vbGreen
.AddXYZ 1, Rnd, 0, "", vbWhite
.AddXYZ 1, Rnd, 1, "", vbYellow
.AddXYZ 1, Rnd, 2, "", vbLime
.AddXYZ 2, Rnd, 0, "", vbRed
.AddXYZ 2, Rnd, 1, "", vbRed
.AddXYZ 2, Rnd, 2, "", vbRed
.AddXYZ 3, Rnd, 0, "", vbGray
.AddXYZ 3, Rnd, 1, "", vbBlack
.AddXYZ 3, Rnd, 2, "", vbRed
End With
TChart1.Aspect.OpenGL.Active = True
Me.TeeCommander1.Chart = Me.TChart1
End Sub