Private Sub Form_Load()
    With Graph1
        .Count = 10
        .Data(1).Value = 14997.53125
        .Data(2).Value = 5574.07421875
        .Refresh
    End With
End Sub

Immer noch auf der Suche nach dem "Tu's trotzdem"-Button...